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The Multi-tasking Mac! 




Mach1 offers a truly interactive 
environment for experimentation with Fortli 
and the Mac. The standard Motorola 
assembler is interactive, too, so you can also 
learn the assembly language for the 68000 
from the keyboard. And since Mach1 uses a 
normal editor (on the Switcher if desired), 
with floating-point and local variables available, 
you dont have to give up the features that 
every other programming language has. With 
menu-driven templates, you can create new 
tasks, windows, menu bars, and even controls 
as easily as with a resource editor. The 
200-page Forth glossary explains each Forth 
word; one per page with examples. 

(versions for the Amiga and Atari available in early 1986) 



Mach1 is 32-bit FORTH-83 for the l\/lac. 

Mach1 is a complete development system for 
writing multi-tasking applications, but it's so 
easy to use that it's being used to teach FORTH 
and 68000 assembly language at the university 
that spawned the Silicon Valley. 
For developers, Mach1 is a multi-tasking 
programming environment with 'call' support 
for every Toolbox trap. It's subroutine- 
threaded for twice the speed of other Forths: 

Sieve: 

Assembly 2-3 sees 

compiled C 6-7 sees 

Machi 13 sees 

other Forths 23 sees 

Pascal 1 270 sees 

With the true assembler that's included, 
developers can use their unchanged MDS 
code in Forth. You can save progress on a 
project with the word 'workspace'. The new 
icon on the desktop will boot with all of your 
code as you left it. At the end of the project, 
the word 'turnkey' will create a stand-alone 
application (with only 16k of overhead for the 
multi-tasking operating system). Any application 
may be sold without licensing fees. 

Other features : MacinTalk for words that speak, 
AppleTalk examples, stack notation and 
summary for every trap, headerless code, macro 
substitution, vectored I/O and ABORT, unlimited 
multi-tasking, named parameters, 400pg manua 



Machi is only 
Order from: 



49 



95 



w/ Switcher and Edit 



Palo Alto Shipping 

PO Box 7430 

Menio Park, CA 94026 

add $4 for S/H (OA Res add 6.5% sales) 
call 800/44-FORTH to place VISA/MC orders 
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Symbol Table 

Simple; introductory tu- 
torials and simple appli- 
cations of Forth. 

Intermediate; articles 
and code for more com- 
plex applications, and 
tutorials on generally dif- 
ficult topics. 

Advanced; requiringstu- 
dy and a thorough under- 
standing of Forth. 



Code and examples con- 
form to Forth-83 stand- 
ard. 



Code and examples con- 
form to Forth-79 stand- 
ard. 



Code and examples con- 
■*.?| form to fig- FORTH. 



Deals with new propos- 
als and modifications 
to standard Forth sys- 
tems. 
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15 



21 
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by Michael Ham 

This article describes one approach to selecting from a menu: picking the option 
with the cursor and using the resulting option number as an index into an array of 
functions. When properly done, this method eliminates the problem of invalid 
input, and can greatly improve ease of program use. 

euroFORML '85 
by Robert Reiling 

Following the previous year's trip to China, FORML journeyed to West Ger- 
many, where that nation's FIG members hosted a symposium of Forth experts 
representing most of the European countries. They gathered to discuss develop- 
ments in Forth programming techniques and how they are being used around the 
world. FIG President Robert Reiling covered the event for Forth Dimensions. 

Teaching Forth: Let's Keep It Simple 
by Ronald E. Apra 

The IF THEN ELSE construct has boggled the minds of many young, aspiring 
programmers. This teacher of elementary and secondary students has a phil- 
osophy that guided him to find a logical way to introduce the control structure's 
concept in his classes. 



F83 String Functions 
by Clifford Kent 

This article presents a string package in support of the F83 pubhc-domain Forth 
model. It brings to Forth the ease of text handling usually found in languages hke 
Pascal or BASIC, making use of a string stack as earlier described by Cassady. 
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19Q/ ^ Rochester 

OO Forth Conference 

June 11-14, 1986 University of Rochester Rochester, New York 

The sixth Rochester Forth Conference is sponsored by the Institute for Applied Forth Research, Inc. in 
cooperation with the IEEE Computer society and the Laboratory for Laser Energetics of the College of Engineering at the 
University of Rochester. 

The focus of the Conference is on real-time artificial intelligence, systems and applications. The invited 
speakers will discuss the implementation of a variety of expert systems and their applications, a commercially available 
data base query system and a real-time version of OPS/5. The performance of high speed Forth engines and moderately 
parallel execution of rule-based systems will be covered. In addition, presented papers will cover many aspects of 
implementing and applying Forth and Forth-like languages. These include image processing, instrumentation, robotics, 
graphics, process control, space-based, medical and business systems. Forth novices, programmers, implementors, and 
project managers will find these presentations useful and pertinent to their work. 

The final day of the Conference will be open to the public, and devoted to tutorials, demonstrations, 
panel discussions, Forth vendor presentations and poster sessions. All those interested in learning about Forth, or in 
seeing the most current Forth products available are invited to attend this day at no charge. 

The registration fee includes all sessions, meals, and the Conference papers. Lodging is available at local 
motels or in the UR dormitories. Registration will be from 3-11 pm on Tuesday, June 10th in Wilson Commons, and 
from 8 am Wednesday, June 11th in Hutchison Hall. There is an hourly shuttle to the airport during registration and 
checkout. Sessions will be held in Hutchison Hall, and the open day will be in Wilson Commons. 

For more information, call or write to Maria Cress at the Institute, 478 Thurston Road, Rochester, New York 
14619. Phone: (716)-235-0168. 



Registration Form 

Name 

Address 



Telephone _ — 

Registration fees: $325 

$275 UR staff, IEEE members 

$200 Full time students 

Dormitory housing, 5 nights: $100 Single, $75 Double 

Amount enclosed: $ 

Vegetarian meal option Non-smoking roommate 

Please make checks payable to the Rochester Forth Conference. Mail your registration by May 15th 
to the Rochester Forth Conference, 478 Thurston Rd., Rochester, NY 14619 USA. 
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Sager Screens 



Quirkless CASE? 

Dear Marlin: 

1 really appreciate the cleverness of 
Michael Jaegermann's letter about the 
Eaker CASE statement ("A CASE of 
Pairs," VII/4). After some thought, I came 
up with a variation on Mr. Jaegermann's 
idea. His first method required use of a 
dummy flag to start the case evaluation, 
which looked odd. It also did not allow you 
to mix tests for ranges and single values. 
His second method required explicit know- 
ledge of the value of true, and was not 
Forth-83 compatible. 

The method I present seems to avoid 
these quirks. My notation may seem strange 
at first, but I am open to suggestion. The 
technique is to use max or min to generate 
the proper values to of. For example, if 
MIN( value, hmit) = value, then we know 
that value < = limit. Screen 13 shows a 
simple implementation of four tests, each 
of which will work transparently with case. 
Screen 14 shows a sample word to classify 
ASCII characters. Screen 16 shows how this 
can be quickly extended to test whether or 
not a value falls within a range, inclusively 
or exclusively at either boundary. 

Thanks, 
Tony Sager 

Westminster, Maryland 



Of Extensions and Hotpatches . . . 

Sir: 

I would like to add my voice to the opinion 
expressed by Mark Smiley in Forth 
Dimensions (VII/4) in which he suggests 
that if Forth is to be adopted by large 
numbers of users, it will have to be supplied 
with the facilities that computer users have 
come to expect. Although I have been 
programming in Forth for well over three 
years and have become reasonably facile 
with the language, when I recently had to 
write a program that opened a file, read it a 
line at a time, manipulated these hnes (as 
strings) and eventually wrote them out a 
byte at a time to a random file, I turned to 
BASIC. I think there are two separate 
questions. First, the Forth Standards Team 
should standardize the use of files, strings, 
floating-point numbers and other useful 
tools. Second, vendors should undertake to 
supply these tools. Only then will Forth 
have a chance to become the language of 
choice for all programming tasks. 



Screen # 


1.3 


( variation on 


Eaker CASE 16:46 12/23/85 ! 


■ t nur-. J 




: ...<= i V 


L -- V L' ) \ if !1INiV,Li=y then V<=L 


OVER MIN : 




:...)= i V 


L -- y L' ) \ it «A1((V,L)=1 then y>=L 


OVER MAX i 




: ...< ( V L 


- V L' 1 \ If «INfV,L-l)=¥ then V<L 


1- ...<= 




: . . . > ( V L 


-- y L' ) \ if nA)(Sv,L+ii=y then y>L 


1+ ...>-^ 




\ note that fif 


t Hia give a 'signed' coEparison 


Screen # 


14 


1 variation on 


Eaker CASE 16:46 12/23/35 ) 


: CLASSIFY ( 


byte -- ) 


CASE 




•Ji. 1 


.< OF ." Control Character" ENDOF 


ASCII . 


.< OF ." Punctuation" ENDQF 


ASCII 9 . 


.<= OF Digit" ENDOF 


ASCII 8 . 


.<= OF Piinctuation" ENDOF 


ASCII 2 . 


.<= OF Upper Case Letter' ENDQF 


ASCII a . 


..< OF ." Punctuation" ENDOF 


ASCII 2 . 


..(= OF ." Lower Case Letter" ENDOF 


127 


..( OF Punctuation" ENDOF 


* T7 

L li f 


OF ." RubQut Character" ENDOl^ 




." Not an ASCII Character" 


ENOCftSE ; 




Screen # 15 




16:46 12/23/85 ) 






, TCC-T ( i^i 


lo ; 


nr 

L'J 




CR 

i 4 .F 


! 3 SPACES I 32 m 127 «IK EMIT SPACE 


I CLASSIFY 


1 nnp • 
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UBZ FORTH 



*FORTH-83 

compatible 
*32 bit stacl< 
*IVIulti-tasl<ing 
*Separate lieaders 
*Full screen editor 
* Assembler 
*Amiga DOS support 
Intuition support 
ROM kernel support 
Graphics and sound 

support 
*Complete 

documentation 
*Assembler source 

code included 
*Monthly newsletter 



$85 



Shipping inciuded 
in continental U.S. 
(Ga. residents add sales tax) 

(404)-948-4654 



(call anytime) 

or send check or money order to: 



UBZ So^CtMne 

395 St. Albans Court 
Mableton, Ga. 30059 



"Amiga is a trademark for 
Commodore Computer. UBZ FORTH 
is a trademark for UBZ Software. 



Screen # Ih 










\ RSN3E TESTS FOR CAS 


E 




! i.. at 

I U t TU 


12/23/35 ) 


: [] ( V LL 01 - V 
>S OVER HhX R: MI 






\ it HAHV.LD^fll^iv.L 
\ LL <= V <= UL 




: i; ( V LL UL V 


L' ) 




\ it HA)((y,LL+ii=KIM(i/ 




>R OVER i+ m R> 


i- Mi 




\ LL { V < UL 




■ l) i V LL L-L *" V 






\ if MAnV,LL!=PiI^(V,ij 


L-i! then 


>R CVER YM R> 1- 


m ; 




\ LL V < OL 




. W \ V Li_ III- V 






\ ;i WAV 1 ; X* '.-MTKlHi 
\ 11 IiHA I V jLL ' i ; -iliK iV 


jbLJ tn.en 


Lv'ER It HAS R.> 


Hifi ; 




\ LL < y <= UL 




Screen # 17 










; variation on Eaker 


CASE 




16:46 




: CLASS iFY2 i fayts 


1 








CASE 












■■' rsp 
1 ■■. ur 


■J 


Control Character" 


ENBOF 


AbC lie It 


/ 

1 \ Ul 


!1 


Punctuation' 


ENDDF 


ASCII ASCII 9 


f T nc 

L J U< 


11 


Digit" 


ENDOF 


ASCII @ 


OF 




Punctuation" 


ENDOF 


ASCII A ASCII 2 


[] DF 


11 


ijpper Case Letter" 


ENDQF 


ASCII a 


< OF 


I! 


Punctuation" 


ENDDF 


ASCII a ASCII : 


[] OF 


a 


Lower Case Letter" 


ENDOF 


127 


■( OF 


1} 


Punctuation" 


ENDOF 


127 


OF 


R 


Rubout Character" 

Not an ASCII Character' 


ENBOF 


ENBCASE ; 










Screen # 18 






16:46 ! 


2/23/85 ; 


: TEST2 i hi lo -- ) 










DQ 










CR 

I 4 .R 3 SPACEE 


r Ti 
i -jL 


MAS 127 m EhIT SPACE 




i CLASSIFY2 










LGOP ; 











End Sager Screens 
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Barr Screens 



Screen # 22 

! 5ub5t HB i2.20/85 ) 

1 ( Use in the ion SU8BT KORDl W0RD2 to substitute MRDl tor 

2 aORD2. The two tfords nay have the sase name.) 

3 : SUBST 

4 ?EXEC { Check if eaecutinqi 

5 ( Set cotpiletion address of wordli 

6 DUP >NA«E CUP 32 TOGGLE t Saudqe «ordii 
' ( Get coaipjiation address of word2) 
8 SWAP 32 TOGGLE i Unseudge wrdli 
5 >80DY SKfiP OVER ' i put cfa of >«ordl -nto «ord2> 

10 2+ ['] EXIT SWAP ' ' put cfa of EHT into word2i 

11 ; 
12 



Screen # 23 

■; Test of subst 12/22/85 i 

1 : TESTA CP . " test A" CR ; 

2 : TESTB CR .» Test B" CR ; 

3 : TEST TESTA ; 

4 TEST < Prints "Test A") 

5 SUBST TESTB TESTA 

b TEST ( Prints "Test B'l 

7 : TESTA CR New test A" CR ; 

8 CR Prints "TESTA is redefined") 
? SUBST TESTA TESTA 

10 TEST i Prints "NeN test A") 

11 

12 



Screen # 24 

i Mutual recursion test 12/21/85 i 

! ; A NOOP ; 

2 ; B ■'DUP IF 1- DUP A 2t SWAP MYSELF + 

3 ELSE 1 

4 THEN ; 

5 : A ?DUP IF 1- DUP A SWAP B * 
h ELSE 1 

7 THEN ! 

8 SUBST A A 
9 

10 
11 



End Barr Screens 



I found the idea of redefining words by 
Phil Koopman, Jr. a very interesting and 
useful one. When I had difficulty adapting 
it to my Forth-83 system, I rewrote it to be 
simpler and more useful (see listing). It is 
still subject to the limitations mentioned in 
Mr. Koopman' s article: it can be used to 
redefine colon definitions only, and there 
must actually be an entry in the word. On 
the other hand, an unlimited number of 
words can be redefined, unlike Mr. Koop- 
man's limitation to just one. Also, the 
syntax is much simpler; you need only type 
SUBST WORD1 WORD2 to change all occur- 
rences of W0RD2 to W0RD1 . The two words 
can even have the same name. In that case, 
the latest definition is substituted for the 
penultimate one. Although the word is 
intended to be used primarily for debug- 
ging, there is nothing to stop it from being 
used, for example, to achieve mutual recur- 
sion, as illustrated in the accompanying 
listing. The words A and B generate all the 
pairs of positive integers for which |B^ - 
2*A^| = 1, whose ratios are the best ap- 
proximations to the square root of two. 

The definition uses three words that are 
not Forth-83 Standard. 7Exec merely 
checks to see if the system is executing, and 
may be omitted. Lines 6 and 8 use the 
words <NAME and toggle that are not 
standard and that assume words can be 
smudged to make them invisible to ' (tick). 
If these three lines are omitted, SUBST will 
work only if WORDI and WORD2 have 
different names. 

Sincerely yours, 

Michael Barr 
Montreal, Quebec 
Canada 

Unraveling TI-Forth 

Dear Mr. Ouverson: 

In Forth Dimensions VI/6 (March/ April 
1985), you pubhshed a TI-99/4A screen 
dump by Howard H. Rogers. I was happy 
to see some Tl-related contributions in 
Forth Dimensions, and noted that you 
indicated the desire to receive more useful 
TI utihties to publish. 

I gladly offer you this little TI-Forth 
decompiler program, which is only three 
screens and not too intimidating for some- 
one to enter by keyboard. Since TI-Forth is 
an extension of fig-FORTH, I suspect it will 
work with little or no modification on most 
such systems. 

Some areas that might be implementation 
dependent are words like {i") and (F-D"). But 
those lines can simply be removed for use 
on another system that doesn't have them. 
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Using the decompiler could hardly be 
easier. You simply load it and then enter: 

DECOMPILE <word name> 

and let it rip! It prints the dictionary ad- 
dress of the various component word CPAs 
and the contents of those words, followed 
by the symbolic decompilation of the word. 
I find it very useful to discover just how a 
lot of the underlying TI-Forth kernel words 
are implemented. 

As an example the readers can easily 
check out, I have included a printout of the 
decompiler's output while decompiling 
one of its own component words. 



Sincerely, 

Rene LeBlanc 
Scottsdale, Arizona 



ok 




DECOMPILE 


LSTID 


Decompiling: LSTID 


Press any 


key to toggle 


PAUSE/START. 


Press fctn> 4 (BREAK) 


to terminate. 


EBE8 A252 


CR 


EBEA A53E 


DUP 


EBEC: B376 


U. 


EBEE A53E 


DUP 


EBFO A574 


e 


EBF2 B376 


U. 


EBF4 A53E 


DUP 


EBF(b A574 


e 


EBFB A5BE 


2+ 


EBFA AA4C 


NFA 


EBFC AF24 


ID. 


EBFE A446 


; s 


ok 




DECOMPILE 


DECOMPILE 


Decompiling: DECOMPILE 


P'r ess any 


key to toggle 


PAUSE/START. 


Press ;-fctn> 4 (BREAK) 


to terminate. 


EE28 AE9E 


-FIND 


EE2A A060 


OBRANCH A 


EE2E A51C 


DROP 


EE30 ECOE 


(DECOMPILE) 


EE32 A050 


BRANCH IE 


EE36 A252 


CR 


EE3B ADA6 


(. ") 


Word not i (t dictionary'' 


EE52 A252 


CR 


EE54 A446 


: S 


ot; 





LeBlanc Screens 

SCR #154 



( TI-FORTH DECOMPILE ) ( DECOMPILE word ) 

1 O CLOAD DECOMPILE BASE-R DECIMAL 

2 : LSTID CR DUP U. DUP @ U. DUP @ 2+ NFA ID. ; 

3 : (DECOMPILE) ( pfa ) [COMPILE] BASE->R HEX CR 

4 DUP NFA CR ." Decompiling: " ID. CR CR 

5 ." Press any key to toggle PAUSE/START." CR 

6 ." Press fctn; 4 (BREAK) to terminate." CR CR 

7 BEBIN ?KEY UNTIL 

8 DUP 2- @ C ' CONSTANT 6 + ] LITERAL = 

9 IF DUP U. DUP e U. ." CONSTANT " NFA ID. ELSE 

10 DUP 2- @ C ' VARIABLE 6+3 LITERAL = 

11 IF DUP U. DUP a U. . '■ VARIABLE " NFA ID. ELSE 

12 DUP 2- a C ' USER 6 + ] LITERAL = 

13 IF DUP U. DUP @ U. ." USER " NFA ID. ELSE 

14 DUP 2- @ C ' VOCABULARY 30 + ] LITERAL = 

15 IF DUP U. . " VOCABULARY " NFA ID. ELSE C — > 



SCR #155 

O ( TI-FORTH DECOMPILE - cont. ) 
1 





] BEBIN 


DUP 


e 


2+ 


C 


;s 


] 


LITERAL = 


PAUSE OR NOT 




WHILE 


DUP 


@ 


2+ 


C 


LIT 


I 


LITERAL = 




4 




OVER 


@ 


2+ 


[ 


OBRANCH 


] 


LITERAL = 


OR 


5 




OVER 


e 


2+ 


c 


BRANCH 


] 


LITERAL = 


OR 


6 




OVER 


@ 


2+ 


c 


(LOOP) 


] 


LITERAL = 


OR 


7 




OVER 


@ 


2+ 


c 


(+LOOP) 


D 


LITERAL = 


OR 


8 




OVER 


@ 


2+ 


L 


(OF) 


3 


LITERAL = 


OR C — > 



9 

10 

1 1 

12 
13 
14 
15 



SCR #156 

( TI-FORTH DECOMPILE - cont. ) 

1 3 IF LSTID 2+ DUP Q . 

2 ELSE DUP @ 2+ C ' (."> 3 LITERAL = 

3 OVER @ 2+ [ • (F-D") 3 LITERAL = OR 

4 OVER e 2+ C ' (!") 3 LITERAL = OR 

5 IF LSTID 2+ DUP 

6 COUNT SWAP OVER TYPE ASCII " EMIT 

7 SPACE + 1- =CELLS 

8 ELSE LSTID THEN THEN 2+ 

9 REPEAT LSTID DROP 

10 THEN THEN THEN THEN C COMPILE 3 R- -BASE ; 
1 1 

12 : DECOMPILE -FIND IF DROP (DECOMPILE) ELSE 

13 CR ." Word not in dictionary" THEN CR ; 
14 

15 R->BASE 



End LeBlanc Screens 
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Subjective Benchmark 

The last issue in our membership year is 
only a subjective sort of benchmark, at 
least insofar as it affects the publishing 
schedule. (The next issue will, after all, 
show up in another two months as usual.) 
But it is a good time to work in a little self- 
analysis between reviewing manuscripts, 
copyediting, keyboarding, uploading files 
to the typesetter and managing the process 
of producing Forth Dimensions. And it's a 
great time to thank our authors and all FIG 
members for their unflagging support and 
contribution, be it in the form of articles, 
criticism or just appreciation. 

Some truly fine articles are already on file 
for upcoming issues, and we look forward 
to reviewing many new manuscripts from 
our readers. We plan to continue the fine 
tutorials by Michael Ham, John James and 
others. Users of TI-Forth will be seeing 
some material specific to their systems, 
thanks to recent contributions. Of course, 
the emphasis will continue to be on code in 
Forth-83 and Forth-79, with some fig- 
FORTH material as well. 

We look forward to hearing from many 
of you in the coming months. Forth 
Dimensions is very much "by and for" FIG 
members, and you can keep it that way with 
your active participation. Keep those letters 
and articles coming! 

— Marlin Ouverson 
Editor 
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TOTALCONTROL 

with LMI FORTH^ 




For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 



For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, and 6502 

• No license fee or royalty for compiled applications 



Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product Information 
and prices. Consulting and Educational Services 
available by special arrangement. 



urn 



Laboratory Microsystems Incorporated 

Post Office Box 10430, tsarina del Rey, CA 90295 
Ptione credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany; Forth-Systeme Angelika Flesch, D-7820 Titisee-Neustadl 
UK: System Science Ltd., London EC1A 9JX 
France: Micro-Sigma S.A.R.L., 75008 Paris 
Japan: Southern Pacific Ltd., Yokohama 220 
Australia: Wave-onic Associates, 61.07 Wilson, W.A, 
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The Moving Cursor Writes 
And, IHaving Writ, IVIoves On. 




Michael Ham 
Santa Cruz, California 

But if you press the up-arrow, 
It goes back and rewrites the line. 

(Apologies to both Omar Khayyam and 
Edward FitzGerald.) 

Items are usually selected from a pro- 
gram menu in one of two ways: by the user 
entering some identifying information (e.g., 
the first character of the option selected, or 
the option number), or by the user moving 
the cursor to the desired item and then 
pressing carriage return or "enter" (or that 
odd little symbol that made so much sense 
to IBM, displayed on the screen by the 
sequence 17 emit 196 emit 217 emit). 

The word that accommodates the selec- 
tion normally returns an option number, 
which is used by the program to execute the 
proper function. This article describes one 
approach to selecting from a menu: picking 
the option with the cursor and using the 
resulting option number as an index into an 
array of functions. 

Because the elements of this task are 
specific to the machine and the Forth used, 
you may have to translate some of the terms 
to match your particular resources. For 
example, the IBM does not deliver cursor 
key information the same way the Apple II 
does; and the command" for cursor 
placement is not the same in PC/Forth (by 
Laboratory Microsystems, Inc.) as it is in 
polyFORTH (by FORTH, Inc.). The code 
shown in this article was written in PC/ 
Forth for an IBM PC or compatible. 

Block 1 

Block 1 defines the true/false constants 
and redefines two of PC/Forth's words. 
PCKEY works like key for all the regular 
ASCII keys, leaving their ASCII value on 
the stack. For the special keys (the function 
and cursor keys), pckey leaves a false flag 
on top of the stack and the IBM key value 
of the special key beneath. For example, 
PCKEY leaves 75 on the stack if left-arrow 
is pushed. 

Because I generally prefer that a word 
return always the same number of argu- 
ments on the stack, I defined mykey to 
leave a true flag above the normal ASCII 
keys. The word 00 converts any non-zero 
value to a true flag, leaving a zero (false 
flag) unchanged. 

The cursor-placement word in PC/Forth 
is gotoxy, which expects the column num- 
ber (the x-coordinate) followed by the row 
number (the y-coordinate) — that is, the 
row number on top of the stack. This 
approach doubtless satisfies half the users, 



but the other half will agree with me that 
row number first, then column number, is 
clearly the natural order. I thus define my 
own cursor placement word, mimicking the 
polyFORTH word in action as well as 
name. The ability to "fix up" native com- 
mands to meet one's own needs (prejud- 
ices?) is one of the most attractive features 
of Forth. 

Your Forth probably has some way to 
turn the (actual) cursor off. Normally you 
don't want the cursor blinking away wher- 
ever it last landed, while the user contem- 
plates the menu. Some Forths automatically 
extinguish the cursor while KEY waits for a 
key; others provide an explicit cursor 
attribute word. PC/Forth's set-cursor 
allows you to define the height of the 
cursor, -cursor uses set-cursor to define 
the height away altogether, so that the 
cursor vanishes. + cursor restores the cur- 
sor on exit. 

BELL is my idea of how the "error" bell 
should sound. You can tune it to your own 
taste by changing the parameters given to 
the PC/Forth word beep. 

Block 2 

The cursor location can be shown by any 
of several tactics: a "pointer" character 
(the IBM has various character symbols 
useful for this purpose), underlining or 
inversing the current option (returning it to 
normal mode when the cursor moves on), 
changing the color of the current option, 
and so forth. 

Since any of the options can be selected 
and thus can differ from the others, you 
must be able to write each option by itself. 
Block 2 contains a collection of words to 
write each option. An additional space is 
included before and after the text in each 
option because I used inverse video to show 
the selected option, and the extra space 
makes the inverse look better, particularly 
if you are using the IBM color graphics 
adapter. 

The header optiohs is put into the dic- 
tionary with create, and then j is used to 
turn the compiler on. We use the compiler 
to put the compilation address of each of 
the following words into the dictionary. I 
turns the compiler off again. The effect is 
the same as if the ] and [ had not been used 
and instead we had ticked and comma' d 
each word into the dictionary: 



CREATE OPTIONS 



'1 , 



■3, 



But ] and i take less room, look better and 
are easier to read, options names an array 



of compilation addresses: the addresses of 
the words that write the various options to 
the screen. 

Block 3 

Block 3 contains words to manipulate the 
options and the option numbers. Given an 
option number, COLI? and C0L2? tell wheth- 
er the number is in column one or column 
two by comparing the number of the option 
against half the number of options. This ex- 
ample has six options, numbered zero 
through five; three (one-half of six) is the 
option number of the first option in the 
second half — that is, the first option in the 
second column. 

CLIP uses MOD to coerce any number into 
the range of legal option numbers — 6 clip 
produces a zero; -1 clip produces a five. As 
we add to or subtact from the option 
number on the stack, we can clip the result 
to make it the appropriate option number 
within the legal range (for this example) of 
through 5. 

plain, given an option number, dips into 
the array options and executes the word 
that displays that option. The option num- 
ber is multiplied by two because each ad- 
dress in the options array is two bytes long. 
Because the sequence @ execute is so 
common, many Forths provide some specif- 
ic word for it. PC/Forth has perform and 
polyFORTH has @ execute (spelled with- 
out the space). 

inverse distinguishes the choice of the 
moment in inverse video through the use of 
the PC/Forth word reverse. You can 
redefine inverse to distinguish the chosen 
option in whatever way you prefer: color, 
underline, capitahzation vs. lower-case, etc. 

SHOWALL displays all the options, with 
option shown as the current choice. 

COLSWAP, given the option number of the 
currently selected option, first redisplays 
that option in the PUWN format (in effect 
unselecting it) and then converts the num- 
ber to the number of the option in the same 
position in the other column. This option is 
then displayed by inverse as the current 
choice. 

Because there are only two columns in 
this example, we can move from one col- 
umn to another simply by adding the 
column length (which is one-half the num- 
ber of options for the two-column case) to 
the option number. If there were more than 
two columns, we would have to decide 
whether to subtract the column length (to 
move left) or add the columnn length (to 
move right). After adding, clip insures that 
the sum is a legal option number. 
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DASH, FIND 



Our company, DASH, FIND & ASSOCIATES, 
is in the business of placing FORTH Program- 
mers in positions suited to their capabilities. 
We deal only with FORTH Programmers 
and companies using FORTH. If you would 
like to have your resume included in our 
data base, or if you are looking for a 
FORTH Programmer, contact us or 
send your resume to; 

DASH, KIND & ASSOCIATES 
808 Dalworth, Suite B 
Grand Prairie TX 75050 
(214)642-5495 



Commicted to ExcBllonce 



REAL-TIME 
SOFTWARE 
DEVELOPERS... 



NOW CUT 
DEVELOPMENT 

COSTS 
4 T0 10 TIMES 
WITH 
polyFORTH 



The Total Programming 
Environment For 8 to 32 
Bit CPU's 

If you utilize any other operating 
system/language on your microcom- 
puter, chances are it's taking 4 to 10 
times OS long to develop the same pro- 
gram. polyFORTH is a totally integrated 
sofhA/are environment that unleashes 
the power of 8 to 32 bit CPU's and best 
supports multi-tasking and multiple 
users for real-time applications. 

Just imagine, with polyFORTH you 
con run 200 tasks concurrently on an 
LSI-11 system. If you have an 8086/88 
system, you can now support 8 users 
with no degradation. But whatever your 
micro or your application, polyFORTH is 
your best ally in cutting development 
costs and getting total control over your 
hardware, 

polyFORTH has all the programming 
tools you need-multiprogrammed OS, 
FORTH compiler and assembler, editor, 
over 400 primitives and debugging 
aids-all resident, ready to use, and 
taking less memory than you dreamed 
possible polyFORTH is ideal for robotics, 
instrumentation, process control, graph- 
ics, data acquisition/analysis, scientific 
and medical instrumentation, or when- 
ever software development time is a 
consideration. 

For more information on polyFORTH 
and our comprehensive support pro- 
grams, contact FORTH Inc, today. 



FORTH, Inc 



111 No, Sepulveda Blvd, 
Manhattan Beach, OA 90266 
Phone (213) 372-8493 




NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLUDE; 

•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI-SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 

DEBUGGING AIDS 

•8088 ASSEMBLER 
•GRAPHICS & SOUND 
•NGS ENHANCEMENTS 
•DETAILED MANUAL 
•INEXPENSIVE UPGRADES 
•NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 

PRICES START AT $70 

NEW-*-HP-150 t HP- 110 
VERSIONS AVAILABLE 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, OA. 95055 
(408) 241-5909 
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The 



TM 

ForthCard 



STAND ALONE OPERATION 

STD BUS INTERFACE 

EPROM/EEPROM 
PROGRAMMER 

RS-232 I/O 

PARALLEL I/O 

ROCKWELL FORTH CHIP 




Evaluation Unit 

$299 

Part #STD65F11-05 includes: 
ForttiCard, Development 
ROM, 8Kbyte RAM, Manuals 



OEM Version as low as 
Part #STD65F 11-00 $4 AA 
does not include Www 
memory or manuals 



The Forthcard provides OEMs and end 
users with the ability to develop Forth and 
assembly language programs on a single 
STD bus compatible card. 

Just add a CRT terminal (or a computer 
with RS-232 port), connect 5 volts and you 
have a self contained Forth computer. 

The STD bus interface makes it easy to 
expand. 

Download Forth source code using the 
serial port on your PC. Use the onboard 
EPROM/EEPROM programming capability 
to save debugged Forth and assembly 
language programs. Standard UV erasable 
EPROMs may also be programmed with 
an external Vpp supply. 



NEW! Options and Application Notes 

Electrically Eraseable PROMs [EEPROMs] 

FREEZE the dictionary in EEPROM (save in 
non-volatile memory, to be restored on 
power up) 

Download Software for your IBM PC or CP/M 

Non-Volatile CMOS RAM with battery 2K, 
8K, optional Clock/calendar 

Fast 2MHz clock (4MHz crystal) 

Disk Controller Card [dVA"] 

Self Test Diagnostics 

Parallel printer interface 



Ask about our ForthBox^** 

A complete STD bus oriented system including 
the ForthCard, Disk Controller, Disk Drive(s), 
STD Card Cage, Cabinet and power supply. 

CALL TODAY FOR COMPLETE INFORMATION! 

'©©[fe [l(o][iI]D[p)[M]©[n]G ©(o)[f[p(o)[?©ftD(Q)Di] 



9560 Black Mountain Road 
San Diego, CA 92126 

(619) 566-1892 



VISA 
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Block 1 

O ( Basic tools Ham 10:27 02/08/86 ) 

1 

2 O CONSTANT F -1 CONSTANT T 

3 

4 : MYKEV ( - c f > ( + -= T i f ASCII character, T if special ) 

5 PCKEY ?DUP 0<> ; 
6 

7 : TAB ( col# rowH - ) SWAP GOTOXY ; ( positions cursor ) 
8 

9 : -CURSOR 14 BET-CURSOR ■, ( removes cursor ) 
10 

1 1 : +CURBOR 6 7 SET-CURSOR ; < returns cursor > 
12 

13 : BELL 512 ( freq ) 8 ( duration ) BEEP ; ( can be tuned ) 
14 

Block 2 

O < Sample option selection Ham 10:2H 02/08/8<S ) 

1 





"1 




15 


TAB . ' 


First option 




i< '-5 


7 


15 


TAB . 


' Second option 


4 




9 


15 


TAB . • 


Thi rd opt i on 


5 


"4 


5 


50 


TAB . 


' Fourth option 


6 




7 


50 


TAB . 


' Fifth op t i on 


7 


: "6 


1? 


50 


TAB . 


' OUIT option " 



( always o-ffer a \iay out ' 
B 

9 CREATE OPTIONS 1 "1 "2 "3 "4 "5 "A 1. 

10 

11 VARIABLE #OPTIONS < holds number o-f option-. ) 
12 

Block 3 

O ( Option arithemtic Ham 10:34 02/0B/8A ) 

1 

7 ! COLl"^ < # - -f > ( T - optn in lett col ) #OPTIONS * 2/ < ; 



4 : C0L2'^ ( # - f ) ( T = optn in right col > COLl'^ NOT ; 
5 

6 3 CLIP ( # - »»• ) #OPTIONS e MOD ; < keeps no. in legal range) 

7 

B : PLAIN < # - > 2» OPTIONS + @ EXECUTE ! < prints option ) 
9 

10 ! INVERSE ( » - ) REVERSE PLAIN REVERSE ; I option inversed ) 
1 1 

12 : SHOWALL O INVERSE »OPTIONS 9 1 DO I PLAIN LOOP ; 
13 

14 : COLSWAP ( -» ' ) DUP PLAIN *OPTIONS » 2/ + CLIP DUP INVERSE s 
15 

Block 4 

O ( Key identification Ham 10:27 02/08/86 > 
1 

2 ( The 75, 77, 72, and 00 are the key numbers returned by the 

3 IBM. The false flag on top in effect makes the number double 

4 precision. -65523. is shorthand for 13 under a true flag. ) 
5 

6 : L? ( d - f ) 75. D- ; < T if left arrow pressed ) 

7 : R? ( d - f ) 77. 0= ; ( T if right arrow pressed ) 

8 : UP? < d - f ) 72. D" ; ( T i f up arrow pressed ) 

9 : DN? ( d - f ) 80. D- ! ( T if down arrow pressed > 

10 ; CR? ( d - f > -65523. D= ( T if carriage return pressed ) 
1 1 



Block 4 

This block contains constants that cor- 
respond to the values returned by the keys 
of interest: up, down, left, right, and car- 
riage return, mykey leaves two numbers on 
the stack (the key value and the flag); I treat 
them as one double-precision number. 

Block 5 

GETOPTiON is a long word with a simple 
structure. I could have used PC/Forth's 
CASE statement to make it easier to read, 
but the function would be the same. The 
word CLS. clears the screen. 

The program comments note that this 
version allows the cursor to wraparound in 
the up-down movement, but not in the left- 
right direction. This inconsistency was to 
illustrate both options; it would be removed 
in any actual application. 

You can allow left-right wraparound by 
making the changes noted in the comments. 
As an exercise, try revising the word to 
eliminate wraparound in the up-down dir- 
ection. This can be a little tricky, depending 
on how you decide you want it to work. 
You might want the up key, for example, to 
produce a bell but no movement if the 
cursor is on option number or option 
number 3. Obviously, you should imple- 
ment the restriction by reference to the 
contents of the variable #options rather 
than to a numeric literal. 



Block 6 

Block 6 creates another set of words. 
OPTn is a placeholder for the task accom- 
plished by option number n. The last op- 
tion, the "quit" choice, probably would be 
BYE (which leaves Forth and returns to the 
operating system) in the final program, but 
during development abort is more con- 
venient; you also need to relight the cursor. 
(In some IBM clones, the cursor automati- 
cally reappears when the program exits to 
DOS; in others, not.) 

In TASKS we see another array of words; 
RUN (the final program word) uses the 
option number (left on the stack by 
GETOPTION) to pick from tasks the approp- 
riate word to execute. Note the similarity of 
the function done by task and options: 
both are used as headers at definition time 
and later, at run time, both find themselves 
involved in the same sort of computation: a 
computation involving 2* + @ and 
EXECUTE. This suggests a defining word; the 
CREATE part is simple, and the does> part 
should also be easy. Remember that does> 



puts the defined word's address on the 
stack at run time, so that you will need a 
SWAP before the 2* . As is often the case, the 
tricky part is finding a good name for the 



defining word. 

Because run ends with F until, complet- 
ing a task returns to the main menu. (Most 
Forths, including PC/Forth, provide the 
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word AGAIN as a synonym for f until.) The 

program repeats until the user selects the 
"quit" word, which breaks out of the loop. 
(Another approach is to end the loop by 
fetching a value from a variable — e.g., 
SWITCH @ UNTIL — and have the "quit" 
task's sole job being to store a "true" (-1) 
into the variable switch.) 

The approach illustrated in this example 
can be used for a wide variety of menu- 
based programs. The separate individual 
tasks can, of course, present their own 
menus, with subtasks associated with each 
of those menu options. As an exercise, 
revise getoption so that it can be used by 
these subsidiary menus as well as by the 
main menu. Some of the revisions you will 
want to consider are controlling the number 
put into #options (so that each subsidiary 
menu can initialize it to the appropriate 
value before calling getoption) and altering 
plain (so that it does not assume a 
particular array but instead takes the array 
address from a variable). 

Michael Ham is a freelance programmer, 
systems designer and writer in Santa Cruz, 
California. This article is from a book in 
progress. Copyright© 1986 by Michael Ham. 



Block 5 

O ( Sample option selection 



Ham 10:34 02/0B/B6 ) 



4 

7 
8 
9 
10 
1 1 
12 
13 
14 



GETOPTinN < - » ) 6 HOPTIONS ' CLS -CURSOR BHOWALL O BFGIN 

MYKEY 2DUP UP'^ IF 2DRap DUP PLAIN 1- CLIP DUP INVFRSE F 

ELSE 2DIIP DM'' IF 2DP0P DUP PLAIN 1+ CLIP DUP INVERSE F 

ELSE 2DUP L'' IF 2DRnP DUP COL 1 IF BELL ELSE COLSWAP THEN F 

ELSE 2DUP Ff IF 2DR0P DUP C0L7? IF BELL El SE COI SWAP THFN F 

ELSE 2DUP CP-? IF DROP ( what ' left will act as true flag ) 

ELSE 2DR0P BFLl F THEN THEN THEN THEN THEN UNTIL ; 

* leaves option # on stac^- ; first option option # > 

' This version sounds a bell if user attempts to mos'e left 
and is in left column., It could Instead wrap the cursor 
by replacing €.0L\'> IF BELL ELBE COLSWAP THEN with COLSWAP ) 



Ham 10: 14 02/OB/86 > 
Option " . 



BlocL 6 

O < Options jobs 
1 

2 ! OPTSTATENENT < n - ) CI 5 -CURSOR 10 36 TAB 

3 12 34 TAB ." Press a key." BELL KEY DROP ) 
4 

5 I OPTl 1 OPTSTATENENT ; ( fake jobs for illustration ) 
b : 0PT2 2 OPTSTATENENT ! 
0PT3 3 OPTSTATENENT ; 
0PT4 4 OPTSTATENENT j 
OPTS 5 OPTSTATENENT ; 

OPTfc +CURSOR BYE < use +CIJRSOR ABORT during development ) ; 



CREATE TASK'S 1 OPTl 0PT2 0PT3 0PT4 OPTS 0PT6 t 
RUN BEGIN GETOPTION 2* TASKS + « EXECUTE F UNTIL 




Public Forum on CompuServe!!! 

MacFORTH " & Multi-FORTH™ support 
Data Libraries with lots of public domain software 
Guest speakers on Forth 
General Forth Interest Topics 
Auto Membership Logon 

Three easy pieces; a modem, a telephone & a terminal 
After you enter CompuServe type in; GO FORTH 

Products: 

Multi-FORTH- Commodore Amiga Version 
Atari ST 

HP Series 300 (w/68020 processor) 

I C^tAUi/t SnliM4f4^ l-hC. 4701 Randolph Rd. Suite 12 Rockville, Md. 20852 

(301)984-0262 





FORTH Dimensions 



14 



Volume VII. No. 6 



euroFORML '85 



Robert Reiling, President 
Forth Interest Group 

— Stettenfels Castle A castle in West Ger- 
many was the location of the International 
euroFORML Conference held October 25 
through 27, 1985. Attending the conference 
were sixty-six people from ten countries. All 
the sessions were conducted in English in 
order to provide a common language for this 
diversified group. Of course, Forth was the 
common computer language. The confer- 
ence agenda included conference papers, 
workshops, poster sessions, a panel discus- 
sion, hardware and software demonstra- 
tions, and time for independent discussions. 

Stettenfels Castle is located near 
Heilbronn in southern Germany, overlook- 
ing agricultural land that is predominantly 
vineyards. Gardens about the castle are 
attractive and offered the opportunity for a 
pleasant walk during breaks in the con- 
ference program. The castle has sleeping 
accommodations, and many conference 
attendees stayed there throughout the 
event. All meals were prepared by the castle 
staff and were served in the dining hall. 
Late-night discussion groups met in front 
of the fireplace in the castle tower. 

Klaus Schleisiek and other dedicated 
Forth enthusiasts in Germany organized the 
euroFORML Conference. They sent promo- 
tional material throughout Europe, which 
resulted in over fifty attendees from Europe 
registering for the conference. Thirteen 
registered from the United States. Klaus 
appointed Michael Perry, from the United 
States, to moderate the conference. 

Conference papers were interesting and 
informative. A brief look at these papers 
follows. 

English as a Second Language for Forth 

Programmers 

Wil Baden 

There is a difference between spelling a 
word and saying a word. With this state- 
ment as an opening remark, Wil Baden 
presented his ideas about "saying" such 
Forth words as #, @, !, +!, [, C! and others. 
Baden suggests that C! should be pronoun- 
ced "byte set"; @ would be "value." These 
are only examples of Baden's proposal. 
This paper caused a great deal of discussion 
among the attendees. 

Interpretive Logic 
Wil Baden 

This paper presents a method for condi- 
tional execution, conditional compilation 
and text editing, which extends Forth to be 



responsive to modern system requirements. 
Forth source screens are included to demon- 
strate the principles he proposed. 

Data Collection in Elementary Particle 
Physics with 32-bit VAX/68K Forth 
R. Haglund 

Forth is used to control large-scale data 
collection systems. This paper discusses the 
application and then explains why Forth is 
suitable for applications in physics. Hag- 
lund points out that one can optimize both 
development and execution speed to the 
most suitable level. 

In-Situ-Development: The Ideal <Comple- 
menl to Cross-Target-Compiling 
A. P. Haley 
H.P. Oakford 

C. L. Stephens 

This paper describes a package called 
"In-Situ-Development," which aims to 
provide an easily implemented technique to 
allow developers of stand-alone 
applications hardware and software to take 
advantage of cross-target-compilers 
without losing direct contact with their 
hardware. 

Forth and Artificial Intelligence 
Robert LaQuey 

This is a progress report on work with 
Forth to implement the minimum set of 
concepts needed for the support of artificial 
intelligence. Several screens of Forth code 
demonstrate the progress in this effort. 

A Forth-Driven Network System for Ap- 
plied Automation 

D. C. Long 

The availability of low-cost, single-board 
computers and intelligent input/output 
systems provides exciting new capabilities 
for the automation of systems and entire 
facilities. This paper describes an applica- 
tions command language, implemented in 
Forth, known as the "Master Control Pro- 
gram." Supported hardware presently in- 
cludes the Optomux family of intelligent 
interface boards. 

Performance Analysis in Threaded-Code 

Systems 

M.A. Perry 

Perry states that a good rule of thumb is 
that a program spends ninety percent of its 
time executing ten percent of the code. 
When some performance goal must be met, 
it is necessary to find those routines in 
which most time is spent and make them 
run faster. Forth encourages modular pro- 



gramming, and it is easy to replace a slow 
routine once it has been found. Several 
techniques for performance analysis in 
Forth systems are described in this paper. 

Generic Operators 
T. Rayburn 

The paper presents techniques for writing 
Forth programs that have resulted in dra- 
matic improvement to the readability of 
code. Presented are current implementa- 
tions and some ideas for future work. 

Control Simulation for a Tape Deck 
L. Richter-Abraham 

The code for control of a stereo tape deck 
is developed in this simulation example. A 
"virtual tape deck" is used to check the 
code. The ideas presented in this paper 
could be used to develop a training program 
for control simulation. 

Preliminary Report on the Novix 4000 
C.L. Stephens 
W.P. Watson 

The Novix 4000 is a true Forth processor 
and is capable of ten million Forth instruc- 
tions per second. It is implemented as a gate 
array. This paper introduces the architecture 
of the chip, its hardware configuration and 
the software support provided with it. Ap- 
plication areas are suggested for the chip. 

A Set of Forth Words for Electrical Net- 
work Analysis 
J. Storjohann 

The program presented in this paper uses 
a simple approach to describe components 
and networks, and to immediately invoke 
suitable arithmetic operations. This ap- 
proach avoids the numbering of nodes and 
the storing and inverting of large matrices. 
The whole system, including the complex 
floating-point words, occupies about two 
kilobytes. 



Forth Language Extension for Controlling 
Interactive Jobs on Other Machines 
D.K. Walker 

A Forth application on an IBM PC/XT is 
described for I) collecting, editing and 
generating input for a large model of the 
Norwegian economy used by the Norweg- 
ian government; 2) transferring this infor- 
mation to a mainframe; and 3) running 
interactive jobs which check the input, 
process it further and send it on to another 
mainframe where the economic model equa- 
tions are solved and result tables are written. 
The application emulates a person operating 



Volume VII, No. 6 



15 



FORTH Dimensions 



FORTHkit 

• Parts 

• Instructions 

• Software 



to build your own 
Computer 

Novix NC4000 

4x6" mother-board 
Press-fit sockets 
2 4Kx8 PROMs 
cmFORTH 

Brodie on NC4000 
Application Notes 

You provide: 

Host computer 
Serial line 
Interface program 
Power supply 
6 RAM chips 
Misc. parts 
4 hours 



You get: 

4MHz Forth computer 
Pin&socket busses 
Simple interfacing 
Mu It i -processor 

architecture 



$400, Complete! 

COMPUTER 
COWBOYS 

410 Star Hill Road 
Woodside, CA 94062 

(415) 851-4362 



MasterFORTH 



FORTH-83 STANDARD 

• • 6809 Systems «v4iUb1« for 

FLEX disk su stems *150 

0S9/6809 $150 

• • 680x0 Systems available for 

MACINTOSH $125 

CP/M-68K $150 

• • tF0RTH/20 for 68020 
Single Board Computer 

Disk based development system 
under 0S9/68K . . . $290 

EpROM set for complete stand- 
alone SBC $390 

• • Forth Model Library - List 
handler, spreadsheet. Automatic 
structure charts . . . each . $40 

• Target compilers : 6809,6801 , 
6303, 680x0, 8088, Z80, 6502 



Talbot Microsystems 
1927 Curtis Ave 
Redondo Beech 

CA 90278 
(213) 376-9941 



68020 SBC, 5 1 /4 " floppy size 
board with 2MB RAM, 4 x 64K 
EpROM sockets, 4 RS232 ports, 
Centronics parallel port, timer, 
battery backed date /time, 
interface to 2 5 1 /4" floppies 
and a SASI interface to 2 

Winchester disks $2750 

68881 fit pt option $500 

0S9 multitask&user OS. . $350 

FASTI 

speeds are 
2 x a VAX780, 10 x an IBM PC 



a computer terminal. Forth techniques il- 
lustrated include a finite-state, description- 
language extension for controlling general, 
interactive jobs on other machines. 



RTDF: A Real-Time Forth System Includ- 
ing Multi-tasking 
H.E.R. Wijnands 
P.M. Bruijn 

This paper outlines a real-time Forth sys- 
tem intended for use as a development tool 
for single-processor control systems. Due to 
the general language concepts applied, it 
has also proved useful for discrete system 
simulation and other concurrent program- 
ming needs. It offers multiple task declara- 
tion, initiation and priority assignment. 



Event-Driven Multi-tasking: A Syntax 
J. Zander 

In this paper situations are investigated 
where, for various reasons, interrupts can- 
not be used. An example is when the condi- 
tion tested is a very complex one. A Forth 
syntax for general event handling is pro- 
posed, including the structures every, 

AFTER and WHENEVER . . . PERFORM. An 

implementation for (time-shared) multi- 
tasking Forth is sketched. 



All of the euroFORML papers described 
above and the complete 1985 FORML 
papers from the USA conference at Asil- 
omar, are included in the 1985 FORML 
Proceedings. This book is available from 
the Forth Interest Group. 
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FORTH INTEREST GROUP MAIL ORDER FORM 

P.O. Box 8231 San Jose, CA 95155 (408) 277-0668 



MEMBERSHIP 

IN THE FORTH INTEREST GROUP 



107 - MEMBERSHIPinthe FORTH INTERESTGROUP&VolumeS 
of FORTH DIMENSIONS. No sales tax, handling fee or 
discount on membership. See the back page of this order 
form. 

The Forth Interest Group is a worldwide non-profit member-supported 
organization with over 4,000 members and 90 chapters. FIG membership 
includes a subscription to the bi-monthly publication, FORTH Dimensions. 
FIG also offers its members publication discounts, group health and life 
insurance, an on-line data base, a large selection of Forth literature, and 
many other services. Cost is $30.00 per year for USA, Canada & Mexico; all 



other countries may select surface ($37.00) or air ($43.00) delivery. 

The annual membership dues are based on the membership year, which 
runs from May 1 to April 30. 

When you join, you will receive issues that have already been circulated for 
the current volume of Forth Dimensions and subsequent issues will be 
mailed to you as they are published. 

You will also receive a membership card and number which entitles you to a 
10% discount on publications from FIG. Your member number will be 
required to receive the discount, so keep it handy. 



HOW TO USE THIS FORM 

1. Each item you wish to order lists three different Price categories: 

Column 1 - USA, Canada, Mexico 
Column 2 - Foreign Surface Mail 
Column 3 - Foreign Air Mail 

2. Select the item and note your price in the space provided. 

3. After completing your selections enter your order on the fourth page of this form. 

4. Detach the form and return it with your payment to The Forth Interest Group. 



FORTH DIMENSIONS BACK VOLUMES 

The six issues of the volume year (May - April) 

101 - Volume 1 FORTH Dimensions (1979/80) $15/16/18 

102 - Volume 2 FORTH Dimensions (1980/81) $15/16/18 

103 - Volume 3 FORTH Dimensions (1981/82) $15/16/18 

104 - Volume 4 FORTH Dimensions (1982/83) $15/16/18 

105 - Volume 5 FORTH Dimensions (1983/84) $15/16/18 

106 - Volume 6 FORTH Dimensions (1984/85) $15/16/18 

107 - Volume 7 FORTH Dimensions (1985/86) $15/16/18 



ASSEMBLY LANGUAGE SOURCE CODE LISTINGS 

Assembly Language Source Listings of fig-Forth for specific CPUs and 
machines with compiler security and variable length names. 

513 - 1802/ MARCH 81 $15/16/18 



514 - 6502/ SEPT 80 $15/16/18 

515 - 6800/ MAY 79 $15/16/18 

516 - 6809/JUNE 80 $15/16/18 

517 - 8080/SEPT 79 $15/16/18 

518 - 8086/88/MARCH 81 $15/16/18 

519 - 9900/MARCH 81 $15/16/18 

520 - ALPHA MICRO/SEPT 80 $15/16/18 

521 - APPLE ll/AUG 81 $15/16/18 

522 - ECLIPSE/OCT 82 $15/16/18 

523 - IBM-PC/MARCH 84 $15/16/18 

524 - NOVA/MAY 81 $15/16/18 

525 - PACE/MAY 79 $15/16/18 

526 - PDP-11/JAN 80 $15/16/18 

527 - VAX/OCT 82 $15/16/18 

528 - Z80/SEPT 82 $15/16/18 
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BOOKS ABOUT FORTH 

200 - ALL ABOUT FORTH $25/26/35 

Glen B. Haydon 

An annotated glossary for MVP Forth; a 79-Standard 
Forth. 

205 - BEGINNING FORTH $17/18/21 

Paul Chirlian 

Introductory text for 79-Standard. 

215 - COMPLETE FORTH $16/17/20 

Alan Winfield 

A comprehensive introduction including problems with 
answers. (Forth 79) 

220 - FORTH ENCYCLOPEDIA $25/26/35 

Mitch Derick & Linda Baker 

A detailed look at each Fig-Forth instruction. 

225 - FORTH FUNDAMENTALS, V. 1 $16/17/20 

Kevin McCabe 

A textbook approach to 79-Standard Forth. 

230 - FORTH FUNDAMENTALS, V. 2 $13/14/16 

Kevin McCabe 
A glossary. 

232 - FORTH NOTEBOOK $25/26/35 

Dr. C. H. Ting 

Good examples and applications. Great learning aid. 
PolyFORTH is the dialect used. Some conversion advice 
is included. Code is well documented. 

233 - FORTH TOOLS $20/21/24 

Gary Feierbach & Paul Thomas 
The standard tools required to create and debug Forth- 
based applications. 

235 - INSIDE F83 $25/26/35 

Dr. C. H. Ting 

Invaluable for those using F-83. 

237 - LEARNING FORTH $17/18/21 

Margaret A. Armstrong 

Interactive text, introduction to the basic concepts of 
Forth. Includes section on how to teach children Forth. 

240 - MASTERING FORTH $18/19/22 

Anita Anderson & Martin Tracy 
A step-by-step tutorial including each of the commands 
of the Forth-83 International Standard: with utilities, 
extensions and numerous examples. 



245 - STARTING FORTH (soft cover) $20/21/24 

Leo Brodie 

A lively and highly readable introduction with 
exercises. 

246 - STARTING FORTH (hard cover) $24/25/29 

Leo Brodie 

255 - THINKING FORTH (soft cover) $16/17/20 

Leo Brodie 

The sequel to "Starting Forth". An intermediate text on 
style and form. 



265 - THREADED IIMTERPRETIVE LANGUAGES $23/25/28 

R.G. Loeliger 

Step-by-step development of a non-standard Z-80 Forth. 

270 - UNDERSTANDING FORTH $3.50/5/6 

Joseph Reymann 

A brief introduction to Forth and overview of its 
structure. 



FORML CONFERENCE PROCEEDINGS 

FORML PROCEEDINGS - FORML (the Forth Modification Laboratory) is an 
informal forum for sharing and discussing new/ or unproven proposals 
intended to benefit Forth. Proceedings are a compilation of papers and 
abstracts presented at the annual conference. FORML is part of the Forth 
Interest Group 

310 - FORML PROCEEDINGS 1980 $30/33/40 

Technical papers on the Forth language and extensions. 

311 - FORML PROCEEDINGS 1981 (2V) $45/48/50 

Nucleus layer, interactive layer, extensible layer, 
metacompilation, system development, file systems, 
other languages, other operating systems, applications 
and abstracts without papers. 

312 - FORML PROCEEDINGS 1982 $30/33/40 

Forth machine topics, implementation topics, vectored 
execution, system development, file systems and 
languages, applications. 

313 - FORML PROCEEDINGS 1983 $30/33/40 

Forth in hardware, Forth implementations, future 
strategy, programming techniques, arithmetic & floating 
point, file systems, coding conventions, functional 
programming, applications. 

314- FORML PROCEEDINGS 1984 $30/33/40 

Expert systems in Forth, using Forth, philosophy, 
implementing Forth systems, new directions for Forth, 
interfacing Forth to operating systems. Forth systems 
techniques, adding local variables to Forth. 



ROCHESTER PROCEEDINGS 

The Institute for Applied Forth Research, Inc. is anon-profitorganization 
which supports and promotes the application of Forth, It sponsors the 
annual Rochester Forth Conference. 

321 - ROCHESTER 1981 (Standards Conference) $25/28/35 

79-Standard, implementing Forth, data structures, 
vocabularies, applications and working group reports. 

322 - ROCHESTER 1982 

(Data bases & Process Control) $25/28/35 

Machine independence, project management, data 
structures, mathematics and working group reports. 

323 - ROCHESTER 1983 (Forth Applications) . $25/28/35 

Forth in robotics, graphics, high-speed data acquisition, 
real-time problems, file management. Forth-like 
languages, new techniques for implementing Forth and 
working group reports. 

324 - ROCHESTER 1984 (Forth Applications) . $25/28/35 

Forth in image analysis, operating systems. Forth chips, 
functional programming, real-time applications, cross- 
compilation, multi-tasking, new techniques and working 
group reports. 

325 - ROCHESTER 1985 

(Software Management and Engineering)$20/2l/24 

Improving software productivity, using Forth in a space 
shuttle experiment, automation of an airport, 
development of MAGIC/L, and a Forth-based business 
applications language, includes working group reports. 
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THE JOURNAL OF FORTH APPLICATION & RESEARCH 

A refereed technical journal published by the Institute for Applied Forth 
Research, Inc. 

401 - JOURNAL OF FORTH RESEARCH V.1 #1 $15/16/18 

Robotics. 

402 - JOURNAL OF FORTH RESEARCH V.I #2 $15/16/18 

Data Structures. 

403 - JOURNAL OF FORTH RESEARCH V.2 #1 $15/16/18 

Forth Machines. 

404 - JOURNAL OF FORTH RESEARCH V.2 #2 $15/16/18 

Real-Time Systems. 

405 - JOURNAL OF FORTH RESEARCH V.2 #3 $15/16/18 

Enhancing Forth. 

406 - JOURNAL OF FORTH RESEARCH V.2 #4 $15/16/18 

Extended Addressing. 

407 - JOURNAL OF FORTH RESEARCH V.3 #1 $15/16/18 



Forth-based laboratory systems and data structures. 

REPRINTS 

420 - BYTE REPRINTS $5/6/7 - 

Eleven Forth articles and letters to the editor that have 
appeared in Byte magazine. 

421 - POPULAR COMPUTING 9/83 $5/6/7 



Special issue on various computer languages, with an 
in-depth article on Forth's history and evolution, 

DR. DOBB'S JOURNAL 

This magazine produces an annual special Forth issue which includes 
source-code listings tor various Forth applications. 

422 - DR, DOBB'S 9/82 $5/6/7 

423 -DR. DOBB'S 9/83 $5/6/7 

424 -DR. DOBB'S 9/84 $5/6/7 

425 - DR. DOBB'S 10/85 $5/6/7 

HISTORICAL DOCUMENTS 

501 - KITT PEAK PRIMER $25/27/35 

One ot the first institutional books on Forth. Of his- 
torical interest. 

502 - FIG-FORTH INSTALLATION MANUAL . . $15/16/18 

Glossary model editor - We recommend you purchase 
this manual when purchasing the source-code listings. 

503 - USING FORTH $20/21/23 

FORTH, Inc. 



REFERENCE 

305 - FORTH 83 STANDARD $15/16/18 

The authoritative description of 83-Standard Forth. For 
reference, not instruction. 

300 - FORTH 79 STANDARD $15/16/18 

The authoritative description of 79-Standard Forth. Of 
historical interest. 

316 - BIBLIOGRAPHY OF FORTH REFERENCES 

2nd edition, Sept. 1984 $15/16/18 

An excellent source of references to articles about 
Forth throughout microcomputer literature. Over 1300 
references. 



MISCELLANEOUS 

601 - T-SHIRT SIZE 

Small, Medium, Large and Extra-Large. 

White design on a dark blue shirt. $10/11/12 — 

602 - POSTER (BYTE Cover) $15/16/18 

616 - HANDY REFERENCE CARD FREE 

683 - FORTH-83 HANDY REFERENCE CARD FREE _ 

FORTH MODEL LIBRARY 

The model applications disks described 
below are new additions to the Forth 
Interest Group's library. These disks are 
the first releases of new professionally 
developed Forth applications disks. 
Prepared on 5 1/4"disks , they are IBM MS 
DOS 2.0 and up compatible. The disks are 
compatible with Forth-83 systems currently 
available from several Forth vendors. 
Macintosh 3 1/2"disks are available for 
MasterFORTH systems only. 

Forth'83 Compatibilitv IBM MS DOS 

Laxen/Perry F83 LMI PC/FORTH 3.0 
MasterFORTH 1 .0 TaskFORTH 1 .0 

PolyFORTH®ll 

Forth-83 Compatibilitv Macintosh 

MasterFORTH 

ORDERING INFORMATION 

701 - Volume 1 - A Forth List Handler 

by Martin J. Tracy $40/43/45 

Forth is extended with list primitives to 
provide a flexible high-speed environment 
for artHicial intelligence. ELISA and Winston 
& Horn's micro-LlSP are included as 
examples. Documentation is included on 
the disk. 

702 - Volume 2 - A Forth Spreadsheet 

by Craig A. Lindley $40/43/45 

This model spreadsheet first appeared in 
Forth Dimensions Volume 7, Issue 1 and 2. 
These issues contain the documentation for 
this disk. 

703 - Volume 3 - Automatic Structure 

Charts by Kim R. Harris 

$40/43/45 

These tools for the analysis of large Forth 
programs were first presented at the 1985 
FORML conference. Program 
documentation is contained in the 1985 
FORML Proceedings. 

Please specify disk size when ordering . 
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FORTH INTEREST GROUP 



P.O. BOX 8231 



SAN JOSE, CALIFORNIA 95155 



408/277-0668 



Name- 
Title _ 



Company 
Address _ 
City 



State/ Prov. 

Country 

Phone 



Zip_ 



By. 



OFFICE USE ONLY 

- Date— Type. 



Shipped By 
UPS Wt. _ . 
USPSWt. _ 
BO Date _ _ 
By 



Date 
Amt. 
Amt. . 



Wt. 



Amt 



ITEM 

# 


TITLE 


AUTHOR 


QTY 


UNIT 
PRICE 


TOTAL 


107 










SEE BELOW 























































































































□ Check enclosed (payable to: FORTH INTEREST GROUP) 

□ VISA □ MASTERCARD 

Card # 

Expiration Date 

Signature 

($15.00 minimum on charge orders) 

PAYMENT MUST ACCOMPANY ALL ORDERS 



SUBTOTAL 



10% MEMBER DISCOUNT 
MEMBER # 



SUBTOTAL 



CA. RESIDENTS SALES TAX 



HANDLING FEE 



$2.00 



MEMBERSHIP FEE 

□ NEW □ RENEWAL $30/37/43 



TOTAL 



MAIL ORDERS 

Send to: 

Forth Interest Group 

P.O. Box 8231 

San Jose, CA 95155 



PHONE ORDERS 

Call 408/277-0668 to place 
credit card orders or for 
customer service. Hours: 
Monday-Friday. 9am-5pm 
PST 



PRICES 

All orders must be prepaid. Prices are 
subject to change without notice. Credit 
card orders will be sent and billed at 
current prices. $15 minimum on charge 
orders. Checks must be in US$, drawn 
on a US Bank. A S10 charge will be 
added for returned checks 



POSTAGE & HANDLING 

Prices include shipping. A 
S2.00 handling tee is 
required with all orders. 



SHIPPING TIME 

Books in stock are shipped 
within five days of receipt 
of the order. Please allow 
4-6 weeks for out-of-stock 
books (delivery in most 
cases will be much sooner). 



SALES TAX 

Deliveries to Alameda, 
Contra Costa, San 
Mateo, Los Angeles, 
Santa Cruz Counties, 
add 61/2%; Santa Clara 
County, add 7%; other 
California Counties. 
add 6%. 

4/86 
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Teaching Forth: 

Let's Keep It Simple 




Ronald E. Apra 
San Jose, California 

For as long as I have taught beginning 
programming to elementary and secondary 
students, the IF THEN construct has been a 
source of confusion and frustration for 
beginning students. The problem is further 
compounded when you introduce the ELSE 
statement along with IF THEN. Students 
who have taken geometry before taking 
programming seem to handle this construct 
much better due to their experience with IF 
THEN statements in formal proofs. How- 
ever, if geometry is made a prerequisite for 
programming, you limit the number of 
students who can take programming. 

I feel that the source of this confusion lies 
partly in the syntax of the IF THEN ELSE 
phrase (BASIC, Logo and Pascal) or the 
more mind-boggling IF ELSE THEN 
expression used in Forth. Apple Logo and 
IBM Logo offer two interesting ways to 
deal with the problem. In the first method, 
the operation IF is followed by a test that 
produces a true or false flag followed by 
one or two instruction lists. If the flag is 
true the first instruction is executed, and if 
the flag is false the second instruction is 
run. This method eUminates the words 
THEN and ELSE. In the following Logo 
procedure, 

TO DECIDE 

OUTPUT IF = RANDOM 2 ("YES] 

["NO] 
END 

the = RANDOM 2 after the IF produces 
a "TRUE flag if RANDOM 2 is and the 
procedure will OUTPUT the message YES. 
If = RANDOM 2 is "FALSE, then the 
procedure will run the second list, which is 
equivalent to the ELSE phase of a condi- 
tional. In the second method, the Logo 
commands TEST, IFTRUE and IFFALSE 
can be used to write the procedure DECIDE 
in the following way: 

TO DECIDE 

TEST = RANDOM 2 

IFTRUE [OUTPUT "YES] 

IFFALSE [OUTPUT "NO] 

END 

where a very readable procedure is 
produced. TEST yields a "TRUE or 
"FALSE flag for IFTRUE and IFFALSE. 

Since some of my students do program in 
Forth, it would be a good exercise for them 
to see if they could come up with a con- 
struct in Forth that would work similarly to 
the above Logo procedure. I am not at this 
time proposing that the standard IF ELSE 
THEN construct in Forth be changed, but I 



challenge the Forth community to see what 
they can come up with. 

In playing around with this problem in 
Forth, I have written the four simple words 

TESTIT, IFTRUE, IFFALSE and ENDIT. TESTIT is 

defined simply as 

: TESTIT ( n - n n ) DUP ; 

and can be used to dupUcate a flag or some 
number on the stack that is about to be 
tested. In examplei on screen 95, TEStit is 
duplicating the flag produced by o = and in 
EXAMPLE4 on Screen 96, testit is duplicat- 
ing the number on the stack that is about to 
be tested by 1 = . IFTRue is a new name for 
IF, and endit is a new name for then (see 
Forth Dimensions VI/ 1, page 26, for a 
different version of endit). I defined iftrue 
and IFFALSE as follows: 

: IFTRUE ( flag - ) [COMPILE] IF ; IMMEDIATE 
: IFFALSE ( flag - ) (COMPILE] THEN ; IMMEDIATE 

On screen 95, examplei resolves an IF 
ELSE THEN condition with a testit iftrue 
IFFALSE structure. By the nature of the 
syntax, the student can point out the o= test 
of n and knows, if the flag is true, where the 
true condition will be executed. For 
beginning students, the IF ELSE THEN 
syntax does not leave enough clues to where 



the parts of the conditional should go. 
When a student gets some practice with the 
TESTIT IFTRUE IFFALSE construct, he Can 
better understand the iftrue else endit or 
IFFALSE else ENDIT Structure in examplE2 
and examples of screen 95. 

On screen 96, example4 can produce 
some interesting results where testit is 
duplicating the input to be tested by i = . 
See if you can explain why 3 example4 
outputs "twothreefour" and then create 
your own crazy EXAMPLE. I bet there are 
some interesting things that can be done 
with testit and multiple iftrue and iffalse 
statements. In examples, the words testit, 
IFTRUE and endit seem to improve the 
readability of the nesting, but I try to 
encourage students to avoid nesting if at all 
possible. 

I stress "keep it simple" in my program- 
ming philosophy, but most beginning stu- 
dents are overwhelmed by the articles that 
appear in Forth Dimensions. For example, 
the "Techniques Tutorial" department 
seemed to be a showcase for the skills of 
some truly great programmers, but it was 
over the heads of many beginners. I hope 
this article will stimulate more thought 
along the lines of "keeping it simple." 



BCfi #95 

( TESTIT, IFTRUE, IFFALSE, ENDIT 
1 

£: ! TESTIT ( n — n ri ) DUP ; 
3 ! ENDIT CCDMPILE;! THEN ; IMMEDIOTE 
A : IFTRUE < flag — ) [COMPILE! IF : IMMEDIftTE 
5 : IFFALSE ( flag — ) COMPILE NOT [COMPILE] IF 
6 
7 
6 
9 

11 

12 
13 
14 



ra/0ct/19a5 ) 



IMMEDIATE 



EXAMPLEI < n — 
0= TESTIT 

IFTRUE . 
IFFALSE 

EXAMPLES ( n — 



) 



true" ENDIT 
' false" END!' 



EXAMPLES ( r, 

SCR #96 

( TESTIT, IFTRUE, IFALSE 
1 

S : EXAMPLE4 ( r, — ) 

3 TESTIT 1 = IFTRUE . 

4 TESTIT £ = IFFALSE 

5 TESTIT 3 = IFTRUE . 
TESTIT 4 = IFFALSE 

DROP ! 



) 0= IFTRUE . 
) 0= IFFALSE 



true" ELSE . ' 
' false" ELSE 



false" ENDIT ; 
" true" END IT 



6 
7 
8 
9 

10 
11 

12 
13 
14 

OK 

1 EXAMPLE4 onetwofour 
£ EXAMPLE4 four 

3 EXHMPLE4 twothreefour 

4 EXAMPLE4 two. 



EXAMPLES ( ri — > 

TESTIT 1 = IFTRUE 
TESTIT £ = IFTRUE 
TESTIT 3 = IFTRUE 
TESTIT 4 = IFTRUE 



ENDIT 



one" ENDIT 
" two" ENDIT 

three" ENDIT 
" four" ENDIT 



one" Else 

two" ELSE 
three" ELSE 
four" ELSE 



ra/0ct/85 > 



ENDIT ENDIT ENDIT END! 



DROP 
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SOFTWARE COMPOSERS 

THERE'RE HERE! 

DELTA BOARD 
DELTA EVALUATION SYSTEM 
DELTA MEMORY AND BACKPLANE 

The Delta Evaluation System - $895 

• 4 MHz Delta Board with Novix NC4000 Forth Chip on board. 

• cmFORTH programming language interpreter and compiler in EPROM. 

• User manual, board schematic, and user bulletin board support. 

• 4K 16 bit words of static RAM and 4K words of EPROM. 

• 8 selectable 256 word data stacks and return stacks for multi-tasking. 

• 21 independently programmable single bit I/O ports. 

• 4 1/2" X 6 1/2" board with 72-pin edge-connector bus with all major Novix 
signals. 

• Delta Regulator Base with attached connector and single 5-volt wall 
mount power supply. 

• Reset switch and serial port on board with RS232 connector and cable. 

• Novix chips available to Delta Board customers. 

• 90 day warranty. 

• Fully assembled, tested, and ready to use. 
DELTA EVALUATION SYSTEM 




I'm delighted to see Software Composers' board on the market. It provides 
incredible capability and versatility with minimal parts, size and price. An 
excellent introduction to the new generation of hardware and software. 

Chuck Moore, November 1985 

For product information or for information on how to order, write: 

Software Composers 
210 California Avenue #F 
Palo Alto, CA 94306 
(415) 322-8763 

For a copy of the Delta User's Manual, enclose a check for $35.00 to Software Composers, 
(If you later purchase a Delta Board Evaluation System, a Delta Board, or the Delta Board 
Kit, the price of the manual will be deducted from your bill). 

COMING SOON! 

THE DELTA DEVELOPMENT SYSTEM 
SCFORTH DEVELOPMENT LANGUAGE 

Software Composers is an authorized Novix Distributor 
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F83 String Functions 



Clifford Kent 
Mottville, New York 

I was drawn to the Laxen and Perry F83 
public-domain Forth model by its meta- 
compiler, full source code and many in- 
novations. The following is a language 
extension in support of that model, for use 
when programming time is more important 
than program execution speed. 

The string functions that follow were 
developed from those presented in BYTE 
by John Cassady ("Stacking Strings in 
Forth," 1980, reprints available from the 
Forth Interest Group). Those interested in a 
more complete description of how a string 
stack works should see that article. While 
some words are taken directly from that 
article, others have been changed to use the 
facilities of F83, and many new functions 
have been added. This string function pack- 
age brings to Forth the ease of text handUng 
usually found in more limited (or is it 
limiting?) languages like Pascal or BASIC. 

Three forms of string storage are used. 
String constants can be compiled into the 
Forth dictionary for use at run time. String 
variables compile named buffers into the 
dictionary. A string stack is located in high 
memory outside the Forth dictionary, be- 
tween the dictionary top and the parameter 
stack, for use in manipulating strings. As 
strings are added, it grows downward 
toward the dictionary. 

The action of the string stack is parallel 
to the action of the parameter stack. I have 
made a conscious effort to keep these string 
functions consistent with their numeric 
equivalents. All string functions are direc- 
ted at the top of the string stack and/or the 
top of the parameter stack. A string con- 
stant places its characters on the string stack 
just as a numeric constant places its value 
on the parameter stack. The run-time 
action of a string variable is to place an 
address on the parameter stack. When you 
fetch a string variable, its characters are 
copied to the string stack top. When the top 
string is saved in a string variable, it is also 
removed from the string stack. String con- 
stant arrays and string variable arrays ex- 
pect a zero-based index on the parameter 
stack. The string variable array returns an 
address. A string constant array moves the 
string constant to the string stack. 

In order to store variable-length strings 
on the string stack, each string of characters 
on the string stack is preceded by a sixteen- 
bit string length. This limits maximum 
string length to 65,535 characters. Some of 
the functions in the package assume signed 



integers in their error testing; these 
functions will only operate correctly with 
strings of less than 32,765 characters. I have 
not found this to be a problem. Since there 
are no checks of the contents of the strings 
handled by these words, they may also be 
used to manipulate data records of any data 
type. For example, if a temporary array is 
needed, just use $chrs to create a string of 
the correct length, filled with any character. 
Use $p@ 2 + to find the address of the first 
byte in the array. $drop reclaims the space 
when done. 

Many words specific to the Laxen and 
Perry F83 Forth Model have been used 
here. While performance is quite good, 
these words are not extremely portable. The 
smart move is used where needed to avoid 
problems with overlap, length is the 
sixteen-bit equivalent of count, scan 
searches for the first occurrence of a char- 
acter. UPPER converts lower case to upper 
case. TUCK can be replaced by 
DUP ROT SWAP. BETWEEN does a ranged 
test. NUMBER? converts a string to a double 
number and a success/failure flag. 
COMPARE does a < = > test of two strings. 

A glossary, full source code with shadow 
screens and an index to the source are 
included here. 

The CP/M version of F83 positions the 
block buffers, return stack and parameter 
stack in memory each time it is loaded from 
disk. (See KERNEL80.BLK screen 85 for 
the F83 cold-start code.) In order for pre- 
compiled systems using a string stack to be 
portable, the string stack must be positioned 
relative to the parameter stack each time it 
loads. $p-iNrr does this initialization. It should 
be included as part of the system or applica- 
tion initialization. (See EXTEND80.BLK 
screen 2 for the word hello.) I normally 
allow 512 bytes for the parameter stack; to 
allow more or less space, change the defi- 
nition of $P-INIT in screen 16. 

Top$ and Soc$ are very handy for adding 
new string functions. They include error 
checking, and return an address and length 
suitable for use by $@, type, cmove, 
CMOVE> or move. 

The sub-string functions $POS, SDELETE 
and SCOPY use one (not zero) to point to the 
first character in a string. This, along with 
the testing done by (delete and JCOPY, 
allows the results of a $POS search to be 
used directly, without if then statements, 
to trap errors. For example. 



ASCII , $POS 
1 SWAP SCOPY 



will search the top string for a comma and 
copy all characters up to and including the 
comma to a new top string. If no comma is 
found, a null string will be created. Or, you 
could use: 



ASCII , $P05 
?DUP IF 

1 SWAP SCOPY THEN 



to avoid the creation of the null string. 

$IN needs a maximum string length on the 
parameter stack. It uses expect to get a 
string from the terminal and pushes it onto 
the string stack. The F83 version of expect 
is unusually flexible: it uses an execution 
array to decode control characters. The 
variable cc holds a pointer to this array, so 
the editing functions available can be 
changed by creating a new execution array 
and changing cc. In this way, the action of 
$IN can be redefined as required for dif- 
ferent functions. 

String variables store the buffer size when 
compiled. $var! uses this number when 
saving a string. The actual string length is 
saved for use by $VAR@. Thus, strings are 
only stored to the length of the variable's 
buffer, and are fetched in their original 
length if the string was shorter than the 
variable's buffer. Note that the string 
variable buffer is cleared to blanks in 
preparation for each string save. This al- 
lows alternate versions of $var@ to fetch 
fixed-length strings for output in fixed- 
length fields. It also allows an entire data- 
base record to be assembled in a string 
variable's buffer. 

Nearly all of the standard Forth number- 
printing words have been translated to 
create strings instead. Their use should be 
clear, (dollars is a useful, special-case 
word. It converts a double number (as- 
sumed to be dollars x 1(X)) into a right- 
justified string of specified length with a 
leading dollar sign. It calls the more general 
number formatter (decimaiSD.R) that can be 
used to create other specialized number 
formats. 

The word $= uses the F83 word compare 
to test the top two strings up to the length 
of the shorter string, caps is tested before 
each string compare. If caps is true, both 
strings are converted to upper case before 
comparing the strings. 

There is only a little error checking in 
these words, but it is generally adequate to 
prevent total system destruction. For those 
who want no error trapping: 
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STRINGS Vocabulary 

Fifty-one names have been defined: 
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• replace 71$p@ and ?2$p@ with $p@ and 

• remove (char-test) from sdelete and 

$COPY. 

• be very careful when running new code. 

I have also included my string stack 
debugging tools in screen 35. For a clear 
understanding of the string stack in opera- 
tion, I suggest using each word in a simple 
example, then dumping the string stack or 
string variable to see what has happened in 
memory. 

The functions presented here £u-e by no 
means a complete set, and additions will be 
welcomed. These words are compiled in 
1813 bytes by F83. As presented here, the 
code is optimized for size and ease of use. 



not for maximum execution speed. 1 have 
tried to maintain functional grouping with- 
in the source so that parts of the package 
could be used when dictionary space is 
tight. 

Finally, I would like to express my thanks 
to Hank Fay and the members of the 
Central New York FIG Chapter for their 
encouragement and constructive criticism. 



Glossary 

$P0 (S - addr) 

A constant that points to the string stack 
base. I normally allow for 512 bytes of 
stack RAM. Some applications will need 
more, others less. 

$P (S - addr) 

A variable that holds the address of the 

current string stack top. 

$P-INIT (S - ) 

String stack initialization routine. Make 
this word part of your system or application 
startup. This is needed because F83 
positions the block buffers, return stack 
and parameter stack in memory each time it 
loads. $P-INIT positions the string stack by 
checking the stack pointer base. To change 
the size of the parameter stack, change the 
512 in this word to the stack size needed. 

$PO$P! (S - ) 

Clear the string stack by resetting the string 
stack pointer. 

$P1 (S addr - ) 

Save a new string stack pointer. 

$P@ (S - addr) 

Fetch the string stack pointer. Returns the 

address of the length of the top string. 

$P2@ (S - addr) 

Fetch a pointer to the second string. 
Returns the address of the length of the 
second string. 

71$P@ (S - addr) 

Fetch the string stack pointer. Aborts with 

an error message if the string stack is 

empty. 

?2$p@ (S - addr) 

Fetch the pointer to the second string. 
Aborts with an error message if the string 
stack does not contain two strings. 
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$DROP (S - ) 

Drop top string. 

$@ (S addr len - ) 

Fetch to the string stack the string whose 
address and length are on the parameter 
stack. 

Top$ (S -- addr len) 

Returns the address of the first character 
and the length of the top string. 

Sec$ (S - addr len) 

Returns the address of the first character 
and the length of the second string. 

$! (S addr - ) 

Pop the top string to the address on the 
parameter stack. The string length is not 
moved with the string. This is not for use 
with string variables. 

*• (S - ) 

TYPE the top string to the current output 
device. Like a number on the parameter 
stack, the top string is lost. 

$DUP (S -- ) 

Duplicate the top string. 

$+ (S-) 
Combine the top two strings into one 
string. The second string will be added to 
the end of the top string. 

$OVER (S -- ) 

Copy second string and push it on the string 
stack. 

$SWAP (S - ) 

Swap the top two strings. 

$POS (S c - pos I 0) 

Search the top string for the character on 
the parameter stack. If not found, return a 
zero; if found, return the position of the 
character. The first character is number one 
(not zero). The output of $pos may be used 
directly by Sdelete and $copy. 

$CHRS (S len c -- ) 

Makes a new string of specified length, 
filled with character c. (This need not be a 
printable character.) 

(char-test) (S pos cnt - pos' cnt') 

Error trap routine used by $delete and 
$coPY. This will prevent most big errors by 
changing pos and cnt to legal values for the 
current top string. 



SDELETE (S pos cnt -- ) 

Delete cnt characters from the top string, 
starting at pos. The input string is destroy- 
ed. Impossible input will result in no change 
to the string. The string's characters are 
numbered starting at one (not zero). 

$coPY (S pos cnt -- ) 

Make a new string at the top of the string 
stack by copying part of the old top string. 
The copied string starts at pos and includes 
cnt characters. The old top of string stack is 
not changed. Impossible input creates a null 
string. The string's characters are numbered 
starting at one (not zero). 



SIN (S n - ) 

A simple input line editor that gets a string 
of maximum length n from the terminal and 
leaves it on the string stack. This uses the 
F83 version of expect, which can be re- 
defined to change the functions of the input 
editor by changing the execution array 
pointed to by the variable CC or by changing 
cc to point to a different execution array. 

$VARIABLE (S compile: $len - ) 

(S run-time: - addr) 

Used in the form 

15 SVARIABLE <name> 

to create a new string variable with space 
for fifteen characters. When <name> is 
executed, it returns the address of the 
length (sixteen bits) of the currently stored 
string. The maximum length of a string 
variable's buffer is stored at addr-2. 

$VAR-ARRAY (S Compile: $len size - ) 

(S run-time: n - addr) 

Used in the form 

1 5 8 SVARIABLE < name > 

to create a new array of string variables 
<name> with space for eight strings of 
fifteen characters each. When <name> is 
executed, it converts element number n to 
the address of the length (sixteen bits) of the 
currently stored string. The maximum 
length of each of the string array variable's 
buffers is stored at addr-2. 

SVARFILL (S addr c - ) 

Fill the string variable at addr with 

character c. 



$VAR@ (S addr - ) 

Fetch the string at addr and push it on the 
string stack. Since the string's actual length 
is stored with the characters, only the 
characters originally saved will be returned. 
If the string variable is empty, a null string 
will be returned. 

SVAR! (S addr - ) 

Pop the top string from the string stack and 
save it in the string variable at addr. The 
string variable's buffer is first cleared to 
blanks. The actual string length is saved 
with the characters for later use. If the top 
string is too long for the string variable's 
buffer, it will be truncated on the right. 

["] (S - ) 

Used by S" to move an in-line compiled 

string to the string stack. 



S" (S - ) 

If compiling, compile the string that follows 
in-line to be moved to the string stack at 
execution time. If executing, put the 
enclosed string on the string stack. Used in 
the form: 

($" File not found") 

SCONSTANT (S compile: - ) 

(S run- time: - ) 
A defining word that compiles named string 
constants. At compile time, create an 
initialized string constant. At run time, 
move the constant to the string stack top. 
Example: 

SCONSTANT TITLE "Annual Report" 

where title would place 'Annual Report' 
on the string stack. Note: Use one blank 
followed by a double quote after the name 
of the SCONSTANT. WORD is used to compile 
the string up to the second double quote, 
and WORD is very picky about leading 
blanks and delimiters. However, this allows 
blanks to be compiled into the array. Be- 
cause WORD returns an eight-bit length, the 
maximum length of a string constant is 256 
characters. 

SCONST-ARRAY (S compile: $len ~ ) 

(S run- time: n — ) 
A defining word that compiles a named 
array of string constants. At compile time, 
create an initialized array of string con- 
stants. At run time, move element n to the 
string stack top. Example: 
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6 SCONST-ARRAY 

NAME "Cliff Janet LaurenKent " 

where 1 name would put 'Janet' on the 
string stack. Note: Use one blank followed 
by a double quote after the array name. 
WORD is used to compile the string up to the 
second double quote, and WORD is very 
picky about leading blanks and delimiters. 
However, this allows blanks to be compiled 
into the array. Because WORD returns an 
eight-bit length, the maximum length of a 
string constant array is 256 characters. 



The following words parallel the stan- 
dard Forth number formatting words. Each 
creates a string on the string stack. If the 
field width specified will not contain the 
number, the string will be longer than 
specified; no data is lost. 



Stack for following: (S d field - ) 
$D.L 32-bit left justified 
$D.R 32-bit right justified 

Stack for following: (S d - ) 
$D. 32-bit signed 

Stack for following: (S n field - ) 
$N.L 16-bit left justified 
$N.R 16-bit right justified 

Stack for following: (S n ~ ) 
$u. 16-bit unsigned 

$N. 16-bit signed 



(declmal$D.R) (S d-num field places ~ ) 

Convert a double number to a right- 
justified string with 'field' characters and 
'places' digits after the decimal. 



(DOLLARS (S d-num field - ) 

Using field width at TOS, convert the 
double number/ 100 to a string as dollars 
and cents. Note that the dollar sign and 
decimal point are included in the character 
count, so there are two digits less than the 
field width. If the field width will not 
contain the number, the string will be 
longer than specified; no data will be lost. 

$LC->UC (S - ) 

Replace all lower case with upper case. 



JTRIM (S ~ ) 

Remove trailing blanks from top string. 
This is the string stack equivalent of 

-TRAILING. 



SSTRIP (S - ) 

Remove leading blanks from top string. 



$VAL (S - d f) 

Converts the top string to a double number, 
using the current system base. The string is 
lost. A leading minus sign is allowed. Lead- 
ing and trailing blanks are also allowed; 
however, no blanks are allowed between a 
minus sign and the number that follows. 
The system variable dpl will contain the 
number of characters to the right of the 
decimal, if any. The flag at TOS indicates 
the success or failure of the conversion. 



$ = 



(S ~f) 



Compare the two top strings to the length 
of the shorter string. The flag may take any 
of three values: 

- the strings are equal 

1 - the top string is shorter 
- 1 the top string is longer 
Neither string is lost or altered. 



The following words have been handy while 
writing string handling routines. They are 
normally excluded from the run-time system. 

CLRSS (S - ) 

Clears the top 256 bytes of the string stack 
to zeroes, making debugging with .$s easier. 

.$S (S - ) 

A non-destructive dump of the top 256 
bytes of the string stack area in hex format. 
This will show string contents, string order 
and the string lengths. 

.$v (S addr - ) 

Displays a string variable in memory. 



BRYTE I 
FORTH I 

INTEL I 
8031 I 

micro- 
controller; 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



$UC->LC (S - ) 

Replace all upper case with lower case. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 
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\ Load String Stack 
1 

2 CAPS OFF 

3 DECIMAL 

1 5 yiEH* ! 

5 CR .( String Stack = ) HERE 
b ONLY FORTH ALSO DEFINITIONS 

7 STRINGS ALSO DEFINinONS 

8 1 15 +THW 

9 HERE SWAP - U. 

10 \ 35 LOAD 

11 CAPS ON 

12 \S 
13 
11 
15 



yOCABULARY STRINGS 



( Basic string stack words ) 



CR .( String worijs loaded.) 



66 

05/10/85ck. fl3/26/85ck 
The basis for this is an article in BYTE by Jrtri Cassada. 
Many words are tak.en fron that article. The action of these 
string words is parallel to the action of FQRTH's paraneter 
stack words. Strings are brought to the Jstack for Lise. 
Funtions are directed at the top of the ♦stack. There is very 
little error checking in these words, but for those who want 
none, replace ?ltPe arid ?2»Pe with $Pe and *P2e. Since there 
are no checks on the contents of the 'strings' handled by these 
words, they nay also be used to nanipulate data records of any 
data type. The snart CHOVE is used here to avoid problems with 
overlap. Iri addition, nany words specific to the Laxeri & Perry 
F83 F(FTH MODEL have been used. While perfortiance has been 
enhanced, this version is not as portable as the fig-FORTH 
versioTi. 



16 

\ basic stack words 

1 CONSTANT m 

2 VARmE »P 

3 : »P-INIT 
1 SPO e 512 

5 1 mif" m V I ; 
A ; »P! $p I ; 
7 ', m »p e ; 



05/08/^ 



(S - ) 
['] »P0 >BODY ! »P0 »P I ; 
(S -- ) 
(S addr — ) 
(S ~ addr ) 

8 ; »P20 (S - addr ) 

9 tP LENGTH + 5 

10 ! ?l»Pe (S - addr ) 

11 *p Dup »P0 u:>= 

12 F »PO$P! ." String Stack Enpty." ABORT THEN 

13 : ?2»Pe (S - addr ) 

n ♦P2e DUP m u>= 

15 IF ♦PO$PI ." Need Two Strings." ABORT TfCN ; 



67 

05/08/85ck 

$P0 - constarit returning the address of the $st3ck base. 
♦P - variable holding the address of the tstack. top 
*P-INIT - positions the Htack. 512 bytes below paraneter stack. 
tPO$P! (S - ) 

Clear the tstack by resetirig the tstacK pointer. 
*PI (S a*Jr - ) 

Save a new ♦stack top address. 
♦Pe (S — addr ) 

Fetch the ♦stack top address. 
♦P2e (S - addr ) 

Fetch the address of the 2nd string. 
?l^Pe (S - addr ) 

Fetch the ♦stack top atWress - error if no string, 
?2»Pe (S - addr ) 

Fetch the address of the 2rid string - error if not 2 strings. 



2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 

15 
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\ basic stack words 
1 

; ♦DROP (S - ) 

?l^pe DUP + 2+ ♦? ! ; 
♦0 (S addr len • 

DUP >R ♦P SWAP - SWAP OVER R0 MOVE 
2 - R> OVER I ♦? I ; 
Top^ (S - addr len ) 

nm LENGTH ; 

See* (S ~ addr len ) 

ntf^ LDCTH J 
♦! (S addr - ) 

Top^ ROT SWAP MOVE ♦DROP ! 



68 

03/25/85CK 03/25/85CK 
♦DROP (S -- ) 

Drop top string, 
♦e (S addr len — ) 

) Fetch the string whose address and length are on the P-stack 

to the ♦stack. 
Top^ (S — addr len ) 

Returns the address and length of the top string. 
Sec^ (S - addr len ) 

Returns the address arid length of the second string. 
♦! (S addr - ) 

Pop the top string to the address on the P-stack. The string 
length is not woved with the string. This is not for Lise 
with string variables. 
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\ basic stack uords 



69 



1 

X 








L t 


*. 






3 




Top$ 


TYPE mf 


1 








5 ! 


«)UP 




(S 


6 




Top* 


« 5 


7 








8 : 


♦+ 




(S 


9 




Sec$ 


Top* ROT OVER + :>ft 


10 




OVER 


2+ SHtf CMOVD 


11 




DROP 


«Pe 2+ »P! R> »pe ! 


12 








13 ! 


Km 




(S 


11 




Sec* 


«e ! 


15 









03/26/85ck 



(I3/25/85CK 



- ) 



♦. (S - ) 

Output the top string to the cwrerit device. Like a mnber 
on the P-stack., the top string is lost. 



»OUP (S 
Duplicate the top string. 



) 



♦+ (S - ) 

Conbine the t«o top strings into one string. The second 
string will be added to the end of the top string. 

«m. (S - ) 

Copy second string and push it on the *st3ck. 



19 

\ ♦SWAP *POS $CHRS 
1 

2 tSWtf (S -' ) 

3 tOVER Top* DUP 2+ >R Sec* SHAP DROP + 1 + 
SWAP 2- OUP Re + ROT CHOVD «Pe R> + *P! : 



70 



06/15/85ck 



♦POS (S c - 

Top* DUP >R ROT SC« ?OUP 
ff R> SWAP - 1+ SWAP DROP 
aSE R> 2DR0P FALSE 
THEN ; 

*CHRS (S len 

SHtf HAX DUP tPe 9IAP - 2- 
♦Pe ! *Pe LENGTH ROT FILL ; 



pos I ) 



c — 
*P! 



05/07/85ck. 



JSHtf (S - ) 

Swap the top two strings. First the second string is copied 
to the top, Ueri the two top stririgs are twved in newory to 
pack the stack, then the Jpointer is corrected for the dove. 

♦POS (S c — pos I ) 

Search the top string for the character on the P-stack. If 
not found return a 0, if fourid return the position of the 
character. The first character is nunber 1 (not 0). The 
output of *POS May be used directly by tOELETE and ♦COPY. 



♦CHS (S len c - ) 

Hakes a new string of specified length, filled 
character c. 



with 



\ 
1 

2 : 
3 

5 
6 

7 ! 

8 

9 
10 
11 

12 : 
13 

15 
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♦DELETE ♦COPY 

(char-test) (S pos cnt 

2 ?ENOUGH OVER ?1«^ 8 > 
F DROP THEN 

OVER ♦Pe e SWAP - 1+ MIN MAX *, 

♦DELETE (S pos cnt 

(char-test) OUP >R SWAP 1+ >R 
♦P9 DUP ROT + R> CHOVD 
R>DIF«>+! ♦PeBSHAP-^Pei; 

♦COPY (S pos cnt 

(char-test) 

SWAP ^pe 1+ + mew, 



71 



05/13/85ck 



pos' cnt' ) 



- ) 



fl5/07/85ck 



(char-test) (S pos cnt ~ pos' cnt' ) 

Error trap routine Lised by tDELETE and ♦COPY. This will 
prevent nost big errors by chariging pos and cnt to legal 
values. 

♦DELETE (S pos cnt — ) 

Delete cnt characters fro« the top string, starting at pos. 
The input string is destroyed. 

♦COPY (S pos cnt - ) 

Hake a new string at the top of the ♦stack by copying part of 
the old top. The copied string starts at pos and incUides cnt 
characters. The old top of ♦stack is not changed. Inpossible 
input creates a null string. 
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\ 

1 

z *. 

3 

5 : 

6 

7 

8 

9 
10 
11 
12 
13 : 
H 
15 
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»" ilN 

C"3 



»IN 



(S - ) 

ReDUP2+sH«>e [)UP2+R> + >R$e; 

(S -- ) 

ASCn " STATE B 

IF COMPILE C"] C, 

HORO C8 -1 am DUP , ALLOT 
aSE C, HORD C8 -1 M.LOT HERE 1 

HERE DUP 2+ 5UAP e »e 
THEN ; IMMEDIATE 

(S n - ) 
PAD DUP ROT EXPECT SPAN 8 ♦« } 



72 

05/07/85ck 05/fl7/85d<. 

C"3 (S - ) 

Moves irrline string to tstack, 

♦" (S - ) 

It Hwpilinq enplace an in-line string to be Hoved to string 
stack at execution tine, else put enclosed string on string 
stack. Used in the forn: *" File not found" 

$IN (S n - ) 

A sidple input line editor that get a string of iHxitwM 
length n and leaves it on the $stririgi This fornat uses 
F83's version of EXPECT which can be redefined to change the 
functions of the keys by chariging the execution array 
pointed to by the variable CC. 



22 

\ *V«aAELE *VAR-Af«AY 
1 

2 : Jvar .build 

DUP , 
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05/10/85ck 



(S »len — *leri ) 
DUP HERE SHAP BLANK DIP ALLOT 



CREATE 

DOES> 

♦W«-ARRAY 
CREATE 



DOES> 



(S coiipile! »len — ) 



♦var .build DROP 
2+ ; 



(S 



ruTi! 



— addr ) 



(S cowpilet ilen size 



DO tvar .build 
LOOP DROP 

(S rur.! 
SHAP OVER 8 4 + f + 2+ ; 



n — addr ) 



03/26/85ck 

$VARIABLE (S cotvile', ilen - ) 

(S runt — addr ) 
Used in the forn 15 tVARIAELE <ri3Me> to create a new stririg 
variable <n3ne> with space for 15 characters. Hheri <ri3«e> 
is executed it returns the address of the length (16 bits) 
of the currently stored string. The Haxiiw« lerigth of a 
string variable's buffer is stored at addr-Z. 

♦VAR-ARRAY (S cot^ile! ilen size — ) 

(S run: n — addr ) 
Used in the for« 15 8 ♦VARIABLE <riaHe> to create a new array 
of string variables '^na«e> with space for 8 strings of 15 
characters each. tSien <ri3He> is executed it coriverts the 
eletwnt number n to the address of the lerigth (16 bits) 
of the cijrreritly stored string. The HaxinuM lerigth of a 
string array variable's buffer is stored at addr-Z. 




1 

-7 

3 

5 
i 
7 
8 
9 
10 
11 
12 
13 
H 
15 
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\ JVARe $VAR! »VARFILL 

! tVARFILL (S addr c 

OVER 2- 8 ROT 2+ SHAP ROT FILL ; 



»VAR8 



(S addr ~ 



DUP 2+ SHAP 8 $8 ; 



♦VAR! (S addr - 

DUP >R DUP BL ♦VWOl 
DUP 2+ SH«> 2- 8 ?1^P8 8 MIN DUP >R 
♦P8 2+ ROT ROT m/E 
R> R> ! 
♦DROP ; 



71 

05/13/85ck 03/Z6/85ck. 
♦VARFILL (S addr c - ) 

Fill the ♦variable at address with the character c. 

♦VAR8 (S addr ~ ) 

Fetch the string at address arid push it ori the ♦stack, Orily 
the character originally saved will be returned. If the 
♦variable is etipty, a null string will be returned. 

♦VAR! (S addr - ) 

Pop the top string froM the ♦stack and save it in the 
♦variable at address. The actual string length is saved with 
the characters for later use. If the top string is too long 
it will be trunetated on the right. 
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\ ♦CONST-ARRAY 

1 

1 

3 

5 

6 

7 

8 

9 
10 
U 
12 
13 
It 
15 



tCONST-ARRAY 
CREATE 

DOES) 



JCONSTANT 
CREATE 



OOES> 



(S compile: »len — 
C, ASCII "WORD C8 1+ AIOT 

(S rtn: n — 

DUP Ce WF >R 

ROT I + 2+ R> *e ! 



(5 conpile: 
ASCn " HORD Ce 1+ ALLOT 
(S ruTi: 

DUP 1+ SWAP ce ; 
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05/10/85CK fl5/ll)/85rt. 
♦CONST-WWAY (S ccwile; »leri - ) 

(S run! n — ) 
) Create S access an initialized array of string constantsi 

Because HORO returns an 8 bit length, the daxinun lerigth 
) of 3 string coristant array is 256 characters. 

NOTE! use only one blank after the array nane. 

exawple! 6 ttONST-ARRAY NAME "Cliff Janet LaurenKent " 
where: 1 NAME would put ^Janet ' on ♦stack.. 



♦CONSTANT 



) 



CS cofipile! 
(8 run! - ) 
Create & access an initialiied string constant, 
NOTE! use orily one blank, after the ♦CONSTANT'S na«e. 
exanple! ^CONSTANT NAME "Cliff" 
where! NW€ would put 'Cliff on ♦stacV.. 



\ 
1 

L. 

3 

1 \ 
5 ! 
i : 

7 ! 

8 ! 
9 

10 \ 

11 ! 

12 ! 

13 : 
It 
15 
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number to string conversion 
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03/26/85ck 



♦str 



OVER - BL ♦CHRS ♦? 



stack for following words! nun field — 
♦O.L >R (D.) R> ♦str ♦+ ; 
♦O.R >R (0.) R> ♦str ♦SWAP ♦+ ; 
♦N.L >R (.) R> ♦str ♦+ J 
♦N.R >R (.) R> ♦str ♦S«AP ♦+ J 

stack for following words! nu« — 
♦D. (D.) ♦e ; 
♦u. (U.) ♦« ; 
♦N. (.) ♦e ! 



03/26/85cK 

These words parallel the staridard FORTH nunber printing words. 
Each creates a string on the ♦stack. If the field width will not 
contain the nijnber the string will be too long', no data is lost. 

Stack for following words! d field — 

«).L 32 bit left justified 

♦O.R 32 bit right justified 
Stack for followirig word! d — 

♦0. 32 bit signed 
Stack for following words! n field — 

♦N.L 16 bit left justified 

♦N.R 16 bit ri*t justified 
Stack, for following words! n — 

♦U. 16 bit in-signed 

♦N. 16 bit signed 
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\ MXILARS 
1 

(decinal^D.R) 

swap >r >r tuck dabs <♦ 

r:> 

TOO » LOOP ASCn 
♦S ROT SIGN »> 
R> OVER - BL ♦CHRS 
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05/10/85ck 



(S d-fiu« field places ~ ) 



HOLD 



♦e ♦SNAP ♦+ 



♦DOli/WS 

1- 2 (deci(Bl«).R) 

1 Ascn ♦ ♦CHRS ♦+ : 



(S d-nu« field 



03/26/85ck 



(deciiwm.R) (S d-nua field places ~ ) 

Convert a double nufiber to a right justified string with 
'field' characters and 'places' digits after the decinal. 



♦DOLLARS (S d-nuw field - ) 

Using field width at TOS, convert the d-nu«ber / 100 to a 
string as dollars and cents. Note that the dollar sigri and 
the decinal point are ircluded in the character count, so 
that there are 2 digits less than the field width. If the 
field width will not contain the nunber, the string will be 
too long! no data will be lost. 
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♦LC->UC 



78 



1 
2 
3 

5 1 

6 

7 

8 

9 
10 
11 
12 
13 
11 
15 



»UC->LC 



05/10/85ck 



03/26/85ck 



«.C->UC 

Top* UPPER ; 

«JC->LC 
Top* 

OVER + SHM> 
TOO I C8 WJP 

Ascn A Ascn 

ff 32 + 1 
aSE DROP 
THEN 
LOOP ; 



(S - ) 



(S - ) 



Z BETUEEN 

C! 



tt.C-XC (S - ) 

Replace sU lower case with upper esse. 



♦UC-M-C (S - ) 

Replace all upper case with lower case. 




1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 

15 
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♦TRIM tSTRP 
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03/26/85ck 



03/26/85ck 



♦TRIM 



(S 



Top* -TRAILING 
♦e imp ♦DROP 



♦STRIP (S - 

Top* 5HAP 
aXR 

?oo OOP ce BL = 

IF 1+ SWAP 1- SHtf 

ELSE LEM€ 

THEN 

LOOP 

SUAP « ♦SUtf ♦DROP ; 



♦TRIM (S - ) 

Renove trailing blanks fro« top string. This is the ♦stacfi. 
equivalant of -TRAILING. 



♦STRIP (S - ) 

Rewove leading bl3ri!.s fr«i top string. 
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\ 


♦VAL 




1 






2 ! 


WtL 




3 




♦STRIP ♦LC->UC 


1 




♦Pe 8 PAD >R 


5 




DUP 2+ Re SHAP BLANK 


6 




Re CI 


7 




Re 1+ ♦! 


8 




R> NUMBER? ! 


9 






10 






11 






12 






13 






14 






15 
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05/13/85ck 



(S ~ d f ) 



03/26/85ck 



♦VAL (S - d f ) 

Converts the top string to a double nuwber, using the current 
sssteft base. The string is destroyed. A leading ninus sign 
is allowed. Leading and trailing blanks are also allowed, 
however no blanks are allowed between a ninus sign and 
the nunber that follows. The saste« variable OPL will 
contain the nunber of characters to the right of the deciwal, 
if any. The flag at TOS indicates the success or failure 
of the conversion. 
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30 81 
\ ♦= 03/Z6/85ck 03/26/85CK 

1 

2 ; ♦= (S - f ) ♦= (S ~ f ) 

3 Topt Cofipare the two top strings, to the length of the shorter 
^ Sec$ string. The flag way take any of three values! 

5 ROT MIN - the strings are equal 

6 COfARE ; 1 - the top string is less that the second 

7 -1 - the top string is greater than the secorid 

8 Neither string is lost or altered, 



9 
10 
11 
12 
13 
11 
15 
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86 


\ tstack inspectioTi 




fl6/12/85ck 06/12/85cl<. 


1 HEX 








2 : CLRtS 






a.R*S clears the top 256 bytes of the tstart. to zeros to nak* 


3 
t 


♦PC 100 - 100 ERASE ASCH x tPO C! J 


debLiging with .$S easier. 


5 ; ,»S 


♦PO FO - 100 DUHP 




.*S is a non destructive dij«p of the top 256 bytes of the string 


6 


CR ." Current top! " 




stack area in hex fornat, This will show string conterits, 


7 


BASE e HEX m U. . 


" hex " 


string order and the string lengths. 


8 
9 


BASE ! ; 






10 ; .$V 




(S addr - ) 


.♦V (S addr - ) 


11 


10 - 50 DUMP ; 




Displays a string variable in netwry, 



12 DECIMAL 

13 \S 



05/07/85ck 
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5 
b 
7 
8 
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15 



TOOLS.BLK 

Extentions to the Laxen & Perry F83 Hodel 

1985 Clifford Kent 

KENT ENGINEERING I DESIGN 
P.O. Box 178 
Mottville NY 13119 
(315)685-8237 



TOOLS.BLK 

Extentions to the Laxen S Perry F83 Model 

1985 Clifford Kent 

KENT ENGIfEERING t DESIGN 
P.O. Box 178 
Mottville NY 13119 
(315)685-8237 
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U.S. 



• ALABAMA 

Huntsville FIG Chapter 

Call Tom Konantz 
205/881-6483 

• ALASKA 
Kodiak Area Chapter 

Call Horace Simmons 
907/486-5049 

• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

lUcson Chapter 

Twice Monthly, 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Call John C. Mead 

602/323-9763 

• ARKANSAS 

Central Arkansas Chapter 

Twice Monthly, 2nd Sat., 2p.m. & 
4th Wed., 7 p.m. 
Call Gary Smith 
501/227-7817 

• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Call Phillip Wasson 
213/649-1428 

Monterey /Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
Fullerton Savings 
"ftlbert & Brookhurst 

Fountain Valley 
Monthly, 1st Wed., 7 p.m. 
Mercury Savings 
Beach Blvd. & Eddington 
Huntington Beach 
Call Noshir Jesung 
714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon 
Call Guy Kelly 
619/268-3100 ext. 4784 

Sacramento Chapter 

Monthly, 4th Wed., 7 p.m. 
1798-59th St., Room A 
Call Tom Ghormley 
916/444-7775 



Bay Area Chapter 

Silicon Valley Chapter 

Monthly, 4th Sat. 

FORML 10 a.m.. Fig 1 p.m. 

H-P Auditorium 

Wolfe Rd. & Pruneridge, 

Cupertino 

Call John Hall 415/532-1115 
or call the FIG Hotline: 
408/277-0668 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 

• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Call Steven Sarns 
303/477-5955 

• CONNECTICUT 
Central Connecticut Chapter 

Call Charles Krajewski 
203/344-9996 

• FLORIDA 
Orlando Chapter 

Every two weeks. Wed., 8 p.m. 
Call Herman B. Gibson 
305/855-4790 

Southeast Florida Chapter 

Monthly, Thurs., p.m. 
Coconut Grove area 
Call John Forsberg 
305/252-0108 

Tampa Bay Chapter 

Monthly, 1st. Wed., p.m. 
Call Terry McNay 
813/725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tuesday each month, 6:30 p.m. 
Computone Cottilion Road 
Call Ron Skelton 
404/393-8764 

• ILLINOIS 
Cache Forth Chapter 

Call Clyde W. Phillips, Jr. 
Oak Park 
312/386-3147 

Central Illinois Chapter 

Urbana 

Call Sidney Bowhill 
217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 
312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 
312/885-8092 

• INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call John Oglesby 
317/353-3929 



Fort Wayne Chapter 

Monthly, 2nd Wed., 7 p.m. 
Indiana/Purdue Univ. Campus 
Rm. B71, Neff Hall 
Call Blair MacDermid 
219/749-2042 

• IOWA 

Iowa City Chapter 

Monthly, 4th TUes. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 

Central Iowa FIG Chapter 

Call Rodrick A. Eldridge 
515/294-5659 

Fairfield FIG Chapter 

Monthly, 4th day, 8:15 p.m. 
Call Gurdy Leete 
515/472-7077 

• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 

• LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8922 

• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 

• MICHIGAN 

Detroit Chapter 

Monthly, 4th Wed. 
Call Tom Chrapkiewicz 
313/562-8506 

• MINNESOTA 
MNFIG Chapter 

Even Month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall Univ. of MN 
Minneapolis, MN 
Call Fred Olson 
612/588-9532 

• MISSOURI 

Kansas City Chapter 

Monthly, 4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Call Linus Orth 
913/236-9189 



St. Louis Chapter 

Monthly, 1st Tues., 7 p.m. 
Thornhill Branch Library 
Contact Robert Washam 
91 Weis Dr. 
EUisville, MO 63011 

• NEVADA 
Southern Nevada Chapter 

Call Gerald Hasty 
702/452-3368 

• NEW HAMPSHIRE 
New Hampshire Chapter 

Monthly, 1st Mon., 6 p.m. 
Armtec Industries 
Shepard Dr., Grenier Field 
Manchester 
Call M. Peschke 
603/774-7762 

• NEW MEXICO 
Albuquerque Chapter 

Monthly, 1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
John Bryon 
Call 505/298-3292 

• NEW YORK 

FIG, New York 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Ron Martinez 
212/517-9429 

Rochester Chapter 

Bi-Monthly, 4th Sat., 2 p.m. 
Hutchinson Hall 
Univ. of Rochester 
Call Thea Martin 
716/235-0168 

Rockland County Chapter 

Call Elizabeth Gormley 
Pearl River 
914/735-8967 

Syracuse Chapter 
Monthly, 3rd Wed., 7 p.m. 
Call Henry J. Fay 
315/446-4600 

• OHIO 

Akron Chapter 

Call Thomas Franks 
216/336-3167 
Athens Chapter 
Call Isreal Urieli 
614/594-3731 

Cleveland Chapter 

Call Gary Bergstrom 
216/247-2492 

Cincinatti Chapter 

Call Douglas Bennett 

513/831-0142 

Dayton Chapter 

TVvice monthly, 2nd Tbes., & 

4th Wed., 6:30 p.m. 

CFC 1 1 W. Monument Ave. 

Suite 612 
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Dayton, OH 

Call Gary M. Granger 

513/849-1483 

• OKLAHOMA 

Central Oklahoma Chapter 

Monthly, 3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Call Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 73112 

• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Tektronix Industrial Park 
Bldg. 50, Beaverton 
Call Tom Almy 
503/692-2811 



Austin Chapter 

Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 

Dallas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Call Chuck Durrett 
214/245-1064 

Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 

Periman Basin Chapter 

Call Carl Bryson 

Odessa 

915/337-8994 

• UTAH 

North Orem FIG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 

• VERMONT 

Vermont Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergennes, VT 
Call Don VanSyckel 
802/388-6698 



• VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 2nd Tues., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/860-9260 

Richmond Forth Group 

Monthly, 2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Call Donald A. Full 
804/739-3623 



FOREIGN 

• AUSTRALIA 

Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 
Contact Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 

Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg. 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 

• BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium FIG Chapter 

Contact Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 Nalinnes 

Belgium 

071/213858 



• CANADA 

Alberta Chapter 

Call Tony Van Muyden 
403/962-2203 

Nova Scotia Chapter 

Contact Howard Harawitz 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P2E5 
902/477-3665 



Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
General Sciences Bldg., Rm. 312 
McMaster University 
Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S4K1 
416/525-9140 ext. 3443 

Toronto FIG Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 



• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 

• ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 
7p.ra., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
D.J. Neale 
58 Woodland Way 
Morden, Surry SM4 4DS 

• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
(16-61)44.03.06 

• GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat., 1500h 
Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 

• HOLLAND 

Holland Chapter 

Contact: Adriaan van Roosmalen 
Heusden Houtsestraat 134 
4817 We Breda 
31 76 713104 



FIG des Alpes Chapter 

Contact: Georges Seibel 
19 Rue des Hirondelles 
74000Annely 
50 57 0280 

• IRELAND 

Irish Chapter 

Contact Hugh Doggs 
Newton School 
Waterford 

051/75757 or 051/74124 

• ITALY 
FIG Italia 

Contact Marco Tiiusel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 

• JAPAN 
Japan Chapter 

Contact Toshi Inoue 
Dept. of Mineral Dev. Eng. 
University of Tokyo 
7-3-1 Hongo, Bunkyo 113 
812-2111 ext. 7073 

• NORWAY 
Bergen Chapter 

Kjell Birger Faeraas 
Hallskaret 28 
Ulset 

+ 47-5-187784 

• REPUBLIC OF CHINA 
R.O.C. 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tin, Taiwan 325 

• SWEDEN 

Swedish Chapter 

Hans Lindstrom 
Gothenburg 
+ 46-31-166794 

• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

ERNI & Co., Elektro-Industrie 

Stationsstrasse 

8306 Bruttisellen 

01/833-3333 

SPECIAL GROUPS 

Apple Corps Forth Users 
Chapter 

IVvice Monthly, 1st & 

3rd Tbes., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

FIGGRAPH 

Call Howard Pearlmutter 
408/425-8700 



• PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 4th Sat., 10 a.m. 
Drexel University, Stratton Hall 
Call Melanie Hoag or Simon Edkins 
215/895-2628 

• TENNESSEE 

East Tennessee Chapter 
Monthly, 2nd Hie., 7:30 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge Tlirnpike, Oak Ridge 
Call Richard Secrist 
615/483-7242 

• TEXAS 



• WISCONSIN 

Lake Superior FIG Chapter 

Monthly, 2nd Fri., 7:30 p.m. 
University of Wisconsin 
Superior 

Call Allen Anway 
715/394-8360 

Milwaukee Area Chapter 

Call Donald H. Kimes 
414/377-0708 

MAD Apple Chapter 

Contact Bill Horzon 
129 S. Yellowstone 
Madison, WI 53705 
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Forth Model Library^ 

Forth-83 model applications programs on disk 

Volume 1 - A Forth List Handler $40 

by Martin J. Tracy 

Volume 2 - A Forth Spreadsheet $40 

by Craig A. Lindley 

Volume 3 - Automatic Structure Charts $40 

by Kim R. Harris 
Forth-83 Compatabilitv 

Laxen/Perry F83 • LMI PC/FORTH 3.0 • Master FORTH 1.0 • TaskFORTH 1.0 • PolyFORTH® II 
All on IBM 5 1/4 " disk, MS DOS 2.0 up. Macintosh 3 1/2" disk for MasterFORTH 1.0. 

Ordering details on the enclosed Forth Interest Group Order Form 



FORTH INTEREST GROUP 

p. O. Box 8231 

San Jose, CA 95155 
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